Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

39172 / 76732

←次へ　｜　前へ→


	【42676】作成したグラフに名前を付けるには？

カド - 06/9/19(火) 10:38 -


	引用なし

	パスワード

以下のコードは、セルＡ１～Ａ３に有るデータを使って棒グラフを描くマクロを記録した
ものです。

グラフを描いた後にいったんセルＢ１を選択し、その後グラフを選択してから
グラフを削除しました。

このような操作をすると、コード内に”グラフ　１”という言葉が記録されますが、
このマクロを実行すると、次に描かれるグラフの名前が”グラフ　１”とはならない
ためか、そこでエラーが出て止まります。

このような事態に陥いるため、グラフ等のマクロを描くときは、いつもつまずいてしまいます。

そこで、マクロ上でグラフに名前を付けてしまえば、マクロにて扱い易いと思ったのですが、
どうすれば良いのでしょうか？

　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

0 hits

▼

【42676】作成したグラフに名前を付けるには？ カド 06/9/19(火) 10:38

≪