Home » エクセルマクロ・Excel VBAの使い方 » グラフ・Chart » Chartsの戻り値をCharts型オブジェクト変数に代入してみよう

Chartsの戻り値をCharts型オブジェクト変数に代入してみよう

動作検証バージョン：64bit Windows 10 Pro + 32bit Excel（バージョン2005 ビルド12827.20268 Microsoft Store）

Excel VBAの、Chartsプロパティの戻り値がSheetsと定義されていることをオブジェクトブラウザーで確認する手順と、総称Object型で宣言したオブジェクト変数にChartsプロパティの戻り値を代入して型がSheetsとなることをローカルウィンドウで確認する手順をご紹介しました。

［スポンサードリンク］

まだ納得できない方は、Chartsプロパティの戻り値を、Charts型のオブジェクト変数に代入するコードを実行したら、どうなるかを確認してください。

Chartsの戻り値を確認するSubプロシージャ

以下のようなSubプロシージャを用意します。

Sub Chartsプロパティの戻り値を確認する()
　Dim coll_chart As Charts
　Set coll_chart = Charts
End Sub

Chartsプロパティの戻り値を、Charts型で宣言したオブジェクト変数に代入するだけで、具体的な処理は行っていません。

このSubプロシージャは、ローカルウィンドウでObject型で宣言したオブジェクト変数にChartsプロパティの戻り値を代入して、型がSheetsになることを確認した際のSubプロシージャの後半部分を切り出して、変数宣言を、

　Dim coll_chart As Object

から、

　Dim coll_chart As Charts

に変更したものです。

上記のSubプロシージャを実行すると、

　Set coll_chart = Charts

の行で「型が一致しません。」実行時エラーが発生します。

Chartsプロパティの戻り値はChartsオブジェクトではないにも関わらず、Charts型で宣言されているオブジェクト変数に代入しようとしたためです。

Chartsプロパティの戻り値はSheetsですから、

　Dim coll_chart As Charts

の部分を、

　Dim coll_chart As Sheets

に修正してやれば、実行時エラーは発生しなくなります。

最終更新日時：2020-06-17 14:07

［スポンサードリンク］

Home » エクセルマクロ・Excel VBAの使い方 » グラフ・Chart » Chartsの戻り値をCharts型オブジェクト変数に代入してみよう

『インストラクターのネタ帳』では、2003年10月から平日のほぼ毎日、Microsoft Officeの使い方などを紹介し続けています。
数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓

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

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

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

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

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

Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓

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

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

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

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

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

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