Sub グラフの参照データ範囲を変更する() ActiveSheet.ChartObjects("グラフ 1").Activate ActiveChart.SetSourceData Source:=Range("Sheet1!$A$1:$C$3") End Sub