ExcelVBAでグラフの色を設定

質問

• VBAでグラフのデータポイントの色分けをしたいと考えています。年齢区分によって色を変えたい状況です。
• MとFを別の系列として描く方法以外にも、20代のデータを別範囲にコピーする方法も考えられます。
• ベターな方法やアイディアを求めています。ExcelVBAを使ってグラフの色を設定する方法に詳しい方、ご教示いただけませんか？

回答No.2

end-u

データ範囲を指定してLoopし、年齢区分の内容によって色づけ処理する感じでしょうか。
ついでに、散布図系列よりデータ範囲を取得するところから始めるとすれば
下記のようなコードになります。

Sub test()
　　Dim sr　As Series
　　Dim s() As String
　　Dim r　 As Range
　　Dim i　 As Long

　　With ActiveSheet.ChartObjects(1).Chart
　　　　.HasLegend = False
　　　　Set sr = .SeriesCollection(1)
　　End With
　　sr.MarkerBackgroundColor = vbBlue
　　sr.MarkerForegroundColor = vbBlue
　　s = Split(sr.Formula, ",")
　　'系列のSERIES関数をカンマで区切ってXValuesの範囲を取得して _
　　 左に1列Offsetした範囲をLoopして調べる
　　For Each r In Excel.Range(s(1)).Offset(, -1)
　　　　i = i + 1
　　　　With sr.Points(i)
　　　　　　Select Case r.Value
　　　　　　Case "20代"
　　　　　　　　.MarkerBackgroundColor = vbRed
　　　　　　　　.MarkerForegroundColor = vbRed
　　　　　　End Select
　　　　End With
　　Next
　　Set sr = Nothing
End Sub

お礼

回答ありがとうございます。

グラフの操作をVBAでやったことがなかったのですが、Seriesという型の変数で参照範囲を取得するようなことができるのですね！？　なるほど、Splits関数を使ってのこういう操作は全く知りませんでした。