ChartObjects経由のChartとShapes経由のChartは同じなのか

最近のExcelでVBAから埋め込みグラフを操作するのに、2系統のオブジェクトモデルを利用できます。

ChartsObjectsメソッドでChartObjectオブジェクトを取得してChartObject.Chartプロパティ経由で取得する方法と、

ShapesコレクションからShapeオブジェクトを取得してShape.Chartプロパティ経由で取得する方法の

2系統です。

• ChartObjectとShapeのプロパティ比較一覧

この2系統で取得したChartオブジェクトについて、あらためてテストをしてみました。

ChartObjects(1)とShapes(1)は異なる

アクティブなワークシートに埋め込みグラフが存在し、他には図形が存在しない状態で、以下のSubプロシージャを実行しました。

Worksheet.ChartObjectsメソッドの戻り値と、Worksheet.Shapes.[_Default]の戻り値を、オブジェクト変数に代入しておいて、
　　Set cho = ActiveSheet.ChartObjects(1)
　　Set shp = ActiveSheet.Shapes(1)

Is演算子で比較した結果と、
　　Debug.Print shp Is cho

それぞれのメモリ番地を出力しています。
　　Debug.Print ObjPtr(cho)
　　Debug.Print ObjPtr(shp)

結果は以下のとおりです。

False
680047016
676325224

人間が操作する対象としては同じものですが、ActiveSheet.ChartObjects(1)で取得したChartObjectオブジェクトと、ActiveSheet.Shapes(1)で取得した埋め込みグラフを表すShapeオブジェクトは、別のオブジェクトと認識されています。

ChartObjects(1).ChartとShapes(1).Chartは同じ

つづいて先ほどのSubプロシージャにコードを追加して、以下のように変更してから再度実行します。

先ほどのオブジェクト変数からChartオブジェクトを取得してIs演算子で比較した結果と、
　　Debug.Print shp.Chart Is cho.Chart

それぞれのメモリアドレスを出力しています。
　　Debug.Print ObjPtr(cho.Chart)
　　Debug.Print ObjPtr(shp.Chart)

今度の結果は以下のとおりです。

False
680047016
676325224
True
672842568
672842568

ActiveSheet.ChartObjects(1).Chartで取得したChartオブジェクトと、ActiveSheet.Shapes(1).Chartで取得したChartオブジェクトは、同じオブジェクトと認識されています。

最終更新日時：2021-09-03 11:11