Excel (VBA)

Excel VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 10 Home : 指定なし)
グラフのプロットの色の変更
投稿日時: 20/03/03 16:41:32
投稿者: Yukikaze

お世話になります。
excel vba (office 365) で以下のようにして
マーカーのサイズや色などを指定しているのですが、
 
    ActiveChart.FullSeriesCollection(1).Select
    With Selection
        .MarkerStyle = 8
        .MarkerSize = 6
    End With
    With Selection.Format.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(100, 100, 255)
        .Transparency = 0
        .Solid
    End With
 
 
RGBの値を変えても色が変わりません。
        .ForeColor.RGB = RGB(100, 100, 255)
なぜでしょうか?
これより後ろには同じ文はないです。
 

回答
投稿日時: 20/03/03 22:45:10
投稿者: simple

ヘルプによれば、
> FillFormat.Solid メソッド
> 指定された塗りつぶし効果が設定されている色を均一な色にします。
> このメソッドを使用して、グラデーション、テクスチャ、パターン、
> または図の塗りつぶし効果を設定されていない状態に戻します。
ということなので、こちらを先に実行して(または実行せずに)、
最後に
  .ForeColor.RGB = RGB(100, 100, 255)
を実行してはどうでしょうか。

投稿日時: 20/03/04 09:32:24
投稿者: Yukikaze

返答ありがとうございます。
 
デバッガーでステップ実行すると
End Withのところで色が変わってしまうので、
 
With selection.format.fill 〜 End with 
をコメントアウトして
 
最後に 
Selection.Format.Fill.ForeColor.RGB = RGB(77,200,68) 
を追加しましたらうまく動きました。
 
ありがとうございました。