Sub グラフの配色を変更する()
'円グラフ 形式
ActiveSheet.ChartObjects("グラフ 1").Activate
ActiveChart.FullSeriesCollection(1).Points(1).Format.Fill.ForeColor.RGB = RGB(255, 255, 255)
ActiveChart.FullSeriesCollection(1).Points(2).Format.Fill.ForeColor.RGB = RGB(160, 160, 160)
ActiveChart.FullSeriesCollection(1).Points(3).Format.Fill.ForeColor.RGB = RGB(0, 0, 0)
'積み上げ横棒 形式
ActiveSheet.ChartObjects("グラフ 2").Activate
ActiveChart.SeriesCollection(1).Format.Fill.ForeColor.RGB = RGB(255, 255, 255)
ActiveChart.SeriesCollection(2).Format.Fill.ForeColor.RGB = RGB(200, 200, 200)
ActiveChart.SeriesCollection(3).Format.Fill.ForeColor.RGB = RGB(160, 160, 160)
ActiveChart.SeriesCollection(4).Format.Fill.ForeColor.RGB = RGB(80, 80, 80)
ActiveChart.SeriesCollection(5).Format.Fill.ForeColor.RGB = RGB(0, 0, 0)
'横棒グラフ 形式
ActiveSheet.ChartObjects("グラフ 3").Activate
ActiveChart.FullSeriesCollection(1).Points(1).Format.Fill.ForeColor.RGB = RGB(255, 255, 255)
ActiveChart.FullSeriesCollection(1).Points(2).Format.Fill.ForeColor.RGB = RGB(200, 200, 200)
ActiveChart.FullSeriesCollection(1).Points(3).Format.Fill.ForeColor.RGB = RGB(160, 160, 160)
ActiveChart.FullSeriesCollection(1).Points(4).Format.Fill.ForeColor.RGB = RGB(80, 80, 80)
ActiveChart.FullSeriesCollection(1).Points(5).Format.Fill.ForeColor.RGB = RGB(0, 0, 0)
End Sub