VBA 特定の名前の図の数をカウントしたい

Question

実現したいこと

図に名前をつけ、その名前の数を数えたい

前提

ActiveSheet.Shapes.Count
こちらで、図の数は数えられますが、名前指定した図の数を数えるにはどのようにプログラム書けばいいでしょうか？
Shape("図形の名前")と書けば、カウントされるかと思いきや、エラー出てしまい、カウントできませんでした。。。

発生している問題・エラーメッセージ

なし

該当のソースコード

Sub Count_Shapes()

Dim numShape As Integer

numShape = ActiveSheet.Shapes.Count　'←このShape("図形の名前")で書けば、カウントしてくれると思っていましたが。。。

Range("F1") = numShape

End Sub

試したこと

図の名前を取得→その取得した図の数を数えるという流れで書けばいいのかどうか？ここの場所でつまずいているので、
ご教授頂きたいです。

Comments

[hatena19]

「特定の名前」とのことですが、同じ名前の図形は一つしかないはずですよね。
「特定の文字列」を含む図形の数をカウントしたいということならわかりますが。

[taroooo]

説明不足で申し訳ありません。
特定の文字列」を含む図形の数をカウントしたいです。

例)"図123"という図がSheet1にいくつあるか？

ということになります。

Answer 1

もし、「特定の文字列」を含む図形の数をカウントしたいということなら、ループで名前を部分一致でチェックすればいいでしょう。

Sub Count_Shapes()
   
    Dim numShape As Long
    Dim shp As Shape
    
    For Each shp In ActiveSheet.Shapes
        If shp.Name Like "*特定の文字列*" Then
            numShape = numShape + 1
        End If
    Next
    
    Range("F1") = numShape
    
End Sub

Comments

[taroooo]

ありがとうございます。

質問なのですが、"numShape = numShape + 1"

こちらは数をカウントする際に必要なの？だと思いますが、+1はなぜ必要なのでしょうか？

[hatena19]

なければ初期値0のままです。
+1で１加算されます。
デバッグでステップ実行して動作を確認する方法を検索してみて、実際に確認してみてください。