未分類

Excel VBA - グラフの色を変更する

Excel VBA でグラフ内の特定のグラフの色を変更する方法を説明します。

■ 2 番目の棒グラフの色を赤に変更します。

Private Sub CommandButton1_Click()

  ActiveSheet.ChartObjects(1).Activate
  With ActiveChart.SeriesCollection(1).Points(2).Format.Fill
    .Visible = msoTrue
    .ForeColor.RGB = RGB(255, 0, 0)
    .Transparency = 0
    .Solid
  End With

End Sub

■ショット

9857-01

■ 説明

ActiveChart.SeriesCollection(1) が 5 本の棒グラフのセットを表しています。但し、Excel 2013 では SeriesCollection が FullSeriesCollection に変更されています。

Points(2) が 2 番目の棒グラフを表しています。

-未分類