シート上にある図の名前をすべて取得したいのですがど

質問

シート上にある図の名前をすべて取得したいのですがどうすればいいでしょうか？

エクセルVBのAコードを教えてください。

*********************************
Sub すべての図の名前を取得する()
Dim i As Long

For i = 1 To 図の数
Debug.Print 図.Name
Next i
End Sub
*********************************
みたいなイメージは沸くのですがこれ以上わかりません。
ご教授よろしくお願いします。

回答No.2

keithin · ベストアンサー

sub macro1()
　dim s as shape
　for each s in activesheet.shapes
　　debug.print s.name
　next
end sub

のようにします。

お礼

dim s as shape
のような編スンの宣言の仕方もあるのですね。勉強になります。
1さんのでも２さんのでも同じ結果が得られました！
ありがとうございました。

回答No.1

kybo

Sub すべての図の名前を取得する()
Dim i As Long

For i = 1 To ActiveSheet.Shapes.Count
Debug.Print ActiveSheet.Shapes(i).Name
Next i
End Sub

お礼

図だけではなく、
FreeformやControlも取得できました！ありがとうございました。