|
以下のコードは、セルA1〜A3に有るデータを使って棒グラフを描くマクロを記録した
ものです。
グラフを描いた後にいったんセルB1を選択し、その後グラフを選択してから
グラフを削除しました。
このような操作をすると、コード内に”グラフ 1”という言葉が記録されますが、
このマクロを実行すると、次に描かれるグラフの名前が”グラフ 1”とはならない
ためか、そこでエラーが出て止まります。
このような事態に陥いるため、グラフ等のマクロを描くときは、いつもつまずいてしまいます。
そこで、マクロ上でグラフに名前を付けてしまえば、マクロにて扱い易いと思ったのですが、
どうすれば良いのでしょうか?
Sub Macro13()
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A1:A3"), PlotBy:= _
xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
ActiveWindow.Visible = False
Windows("Book2").Activate
Range("B1").Select
ActiveSheet.ChartObjects("グラフ 1").Activate
ActiveChart.ChartArea.Select
ActiveWindow.Visible = False
Selection.Delete
End Sub
|
|