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の使い方などを紹介し続けています。
Excel VBAの経験がある方を対象に、Word VBAの基本をキンドル本としてまとめました↓↓

Excel VBAユーザーの方を対象として、Wordの表をVBAで操作する基礎をまとめました↓↓

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

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

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

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

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

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

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

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

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

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

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