Excel VBA（マクロ）で図形の名前を取得、変更する方法/Nameプロパティの使い方

VBAで図形の名前を取得・変更するには、他のオブジェクト同様Nameプロパティを使います。

名前の取得
名前の変更
- ShapeRangeコレクションの場合
すべての図形の名前を変更・取得

名前の取得

図形の名前の取得
図形.Name
※図形はShapeオブジェクトまたはShapeRangeコレクションで指定

この図形の名前を求め、他のセルに表示してみます。

' vba
Range("C1").Value = ActiveSheet.Shapes("楕円 1").Name

ShapeオブジェクトまたはShapeRangeコレクションの後ろに、Nameを付けることで名前が取得できます。
名前で指定した図形の名前を訊くというのもなんか変ですが、たとえばこういったコードになります。

で、実行すると当然「楕円 1」が返る……と思いきや、別の名前が戻されます。
これは2010以降のExcelの仕様で、作成直後の図形は日本語名と英語名のふたつの名前を持ち、どちらでも指定できます（ActiveSheet.Shapes("Oval 1").Nameでも取得できる）。
Nameで取得した場合は英語名が返されます。

名前の変更

' vba
ActiveSheet.Shapes(1).Name = "図形1"

図形の名前を変更するには、Nameの後につけたい名前を指定します。

図形の名前が変更され、

名前を取得しても、同じ名前が表示されます。

ShapeRangeコレクションの場合

ShapeRangeコレクションでも可能とは言ったものの、複数図形の名前をまとめて取得しようとすると、そういうことはできない旨エラーが出ます。

' vba
Range("C1").Value = ActiveSheet.Shapes.Range(Array(1)).Name

Rangeプロパティで単一の図形を指定してやれば、問題なく動きます。

すべての図形の名前を変更・取得

図形すべてに名前をまとめてつけたり、名前を取得したい場合は、

' vba
' 図形の数を数え、その回数繰り返す
For i = 1 To ActiveSheet.Shapes.Count
' 名前を変更
ActiveSheet.Shapes(i).Name = "図形" & i
' 名前を書き出し
Cells(i, 3).Value = ActiveSheet.Shapes(i).Name
Next

たとえばこんな感じのコードを書いてやれば、