エクセル マクロでグラフの色を変えたい

質問

エクセル　マクロにて

折れ線グラフが３つあるとします。
その中の１つグラフの名前が”あああ”とします。
そのグラフの最初の２つの点の色を赤、緑と変える方法をマクロで教えてください。

回答No.1

xls88 · ベストアンサー

MsgBox ActiveSheet.ChartObjects.Count
で戻り値が3という事ですか？
あるいは
With ActiveSheet.ChartObjects("あああ").Chart
Msgbox .SeriesCollection.Count
End With
で戻り値が3という事ですか？

文章が不明確です。
状況説明をもう少し解り易く詳しくしてください。

取りあえず
グラフ名が”あああ”
系列1の
1番目のマーカーの色を赤
2番目のマーカーの色を緑
と変える例です。

Dim idx As Variant
Dim i As Long

With ActiveSheet.ChartObjects("あああ").Chart
For i = 1 To 2
Select Case i
Case 1: idx = 3
Case 2: idx = 10
End Select
With .SeriesCollection(1).Points(i)
.MarkerBackgroundColorIndex = idx
.MarkerForegroundColorIndex = idx
End With
Next
End With

お礼

これでバッチリです。
ありがとうございます。