![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
No.2ベストアンサー
- 回答日時:
とりあえず、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
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
これ何て呼びますか Part2
あなたのお住いの地域で、これ、何て呼びますか?
-
エクセルで○や×の図形の集計は出来ますか?
Excel(エクセル)
-
オブジェクトをカウントする
Excel(エクセル)
-
オートシェイプを色別に個数をカウントすることは出来ますか?
Excel(エクセル)
-
-
4
指定範囲内のオートシェイプを数えるには?
Excel(エクセル)
-
5
オートシェイプに名前を付け名前毎に個数をカウントしたい
Excel(エクセル)
-
6
特定の名前のオートシェイプの有無を知りたい(エクセルVBA)
Excel(エクセル)
-
7
エクセル マクロで、選択している画像の数を数えたい
Excel(エクセル)
-
8
EXECLマクロでshapeがグルーフ゜化されてるかどうかを調べる方法は?
Visual Basic(VBA)
-
9
Excel(VBA)
Excel(エクセル)
-
10
エクセルで図形やワードアートもリスト選択できますか?
Word(ワード)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
学校からスタサプの動画を見る...
-
経験人数って男がいったらカウ...
-
1~200までの自然数のうち 3か5...
-
万歩計のメカニズム
-
GM計数管で試料を2分間測定した...
-
以内について 5日以内までだっ...
-
一般的に、付き合い始めたらそ...
-
ACCESS クエリの引き算
-
土日を挟んで3日と言われました。
-
iPhoneのスクリーンタイムの持...
-
Excelで特定のオートシェイプの...
-
Word2000について
-
エクセル =now() の時刻に合わ...
-
エクセルの関数教えてください。
-
ワードで文書の文字数を、常に...
-
musicカウントフリーでポッドキ...
-
カウントフリー
-
30,000文字を超えていると表示...
-
エクセルIFの返り値
-
http://oshiete.goo.ne.jp/qa/1...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
以内について 5日以内までだっ...
-
経験人数って男がいったらカウ...
-
一般的に、付き合い始めたらそ...
-
学校からスタサプの動画を見る...
-
真の計数率の求め方
-
Excelで特定のオートシェイプの...
-
ACCESS クエリの引き算
-
1~200までの自然数のうち 3か5...
-
ワードで文書の文字数を、常に...
-
iPhoneのスクリーンタイムの持...
-
【スプレッドシート】白色のセ...
-
GM計数管で試料を2分間測定した...
-
3DSの歩数カウント
-
関数“COUNTIF”で日付のカウント
-
1~270までの自然数のうち、素...
-
メールの文字数を数える方法
-
エクセル =now() の時刻に合わ...
-
万歩計の誤差(実例)
-
土日を挟んで3日と言われました。
-
Accessの印刷部数設定について...
おすすめ情報