Home » エクセルマクロ・Excel VBAの使い方 » グラフ・Chart » VBAでグラフシートをブックの最後に追加するには？

VBAでグラフシートをブックの最後に追加するには？

対象：Excel2007, Excel2010, Excel2013, Windows版Excel2016

VBAから、ブックの末尾にグラフシート・Chartオブジェクトを追加するメソッドには、バグがあります。

Charts.Addではグラフシートをブックの末尾に追加できない

例えば、

Sheets.Add After:=Sheets(Sheets.Count)

といったコードを実行すると、アクティブなブックの末尾にワークシートを挿入することができます。

同じ考え方で、

 Charts.Add After:=Sheets(Sheets.Count)

というコードで、グラフシートをブックの末尾に挿入できるはずなのですが、できません。

［スポンサードリンク］

グラフシートをブックの最後に追加しようと、

Charts.Add After:=Sheets(Sheets.Count)

を実行しても、

Charts.Add Before:=Sheets(Sheets.Count)

と同じ結果になってしまうのです。
グラフシートがブックの最後のシートの左側に追加されてしまいます。

このサイト・インストラクターのネタ帳へも、
「charts.add 最後」
といった検索キーワードでのアクセスがあります。

解決方法としては、以下のようなSubプロシージャです。

Sub グラフシートを末尾に追加する()
　Dim cht As Chart
　Set cht = Charts.Add
　cht.Move After:= Sheets(Sheets.Count)
End Sub

一旦グラフシートの挿入を行ってから、

Set cht = Charts.Add

移動を行えば、

cht.Move After:= Sheets(Sheets.Count)

ユーザー側からは、グラフシートをブックの最後に追加したように見えます。

最終更新日時：2021-13:28

［スポンサードリンク］

Home » エクセルマクロ・Excel VBAの使い方 » グラフ・Chart » VBAでグラフシートをブックの最後に追加するには？

『インストラクターのネタ帳』では、2003年10月から平日のほぼ毎日、Microsoft Officeの使い方などを紹介し続けています。
Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓

Pythonの文字列フォーマットの基本をキンドル本としてまとめました↓↓

小数とPythonのdecimalモジュールの基本をキンドル本としてまとめました↓↓

図形を操作するExcel VBAの基本を解説したキンドル本を出しました↓↓

グラフを操作するExcel VBAの基本を解説したキンドル本です↓↓

『インストラクターのネタ帳』を運営する伊藤潔人が、初めて書かせていただいた書籍です↓↓

PowerPoint VBA本は、実はオブジェクトブラウザーの使い方を徹底的に解説した本です↓↓

Excel VBAユーザーを対象とした、Word VBAの入門書をキンドル本として出しました↓↓

日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓

上記の『Excel VBAユーザーのためのPythonプログラミング』の元になったキンドル本です↓↓

数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓

3年前(2021年4月)の
人気記事

「グラフ・Chart」の記事一覧