| |
以下のコードは、セルＡ１〜Ａ３に有るデータを使って棒グラフを描くマクロを記録した
ものです。
グラフを描いた後にいったんセルＢ１を選択し、その後グラフを選択してから
グラフを削除しました。
このような操作をすると、コード内に”グラフ １”という言葉が記録されますが、
このマクロを実行すると、次に描かれるグラフの名前が”グラフ １”とはならない
ためか、そこでエラーが出て止まります。
このような事態に陥いるため、グラフ等のマクロを描くときは、いつもつまずいてしまいます。
そこで、マクロ上でグラフに名前を付けてしまえば、マクロにて扱い易いと思ったのですが、
どうすれば良いのでしょうか？
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
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
