Excelで特定のオートシェイプのみカウントする方法はありますか？

タイトルのようなことが出来れば教えて頂きたいです
例えば　オートシェイプの☆に「星10」と名前をつけてそれのみをカウントする方法はありますでしょうか？
また、可能な場合に複数のオートシェイプをグループ化したものもカウント可能になりますでしょうか？
例えば｢☆△」等の場合などです。
私自身ほとんど知識がありません。どなたかご回答頂ければ幸いです。

No.2 ベストアンサー 回答者： ママチャリ 回答日時： 2020/11/11 21:38

とりあえず、AutoShapeTypeプロパティを調べればカウントは出来ると思います。

下記の例は「星10」をカウントするものです。
グループ化されたものもカウントしたいとのことですが、グループ化された中の個々のシェイプを見ていかなければならないので、面倒そうですね。
頑張ってください。応援はしますが、サンプルは書けません。

Sub sample()
Dim shp As Shape
Dim cnt As Long
For Each shp In ActiveSheet.Shapes
If shp.AutoShapeType = msoShape10pointStar Then
cnt = cnt + 1
End If
Next shp
MsgBox cnt
End Sub

この回答へのお礼

ありがとうございます！

お礼日時：2020/11/12 17:27

No.1 回答者： ppp2122 回答日時： 2020/11/11 20:25

作成する時にその図形に名前を付けて

（番号を振る）　それをカウントする方法はありますが
作成済みのものは出来なかったように思います