Sub ピボットグラフの色を指定する_変更する()
    
    'まずグラフをアクティブにする「グラフ 1」＝グラフ名
    ActiveSheet.ChartObjects("グラフ 1").Activate
    
    '1つ目の要素に色を塗る
    ActiveChart.FullSeriesCollection(1).Points(1).Format.Fill.ForeColor.RGB = RGB(255, 0, 0) '赤
    
    '2つ目の要素に色を塗る
    ActiveChart.FullSeriesCollection(1).Points(2).Format.Fill.ForeColor.RGB = RGB(0, 255, 0) '緑
    
    '3つ目の要素に色を塗る
    ActiveChart.FullSeriesCollection(1).Points(3).Format.Fill.ForeColor.RGB = RGB(0, 0, 255) '青
    
End Sub