
No.2ベストアンサー
- 回答日時:
サンプルです。
Sub Sample()
Dim shp As Object
Dim cnt As Long
For Each shp In Selection.ShapeRange
' 13:画像 11:リンク画像
If shp.Type = 13 Or shp.Type = 11 Then
cnt = cnt + 1
End If
Next
Debug.Print "画像は " & cnt & " 個です"
End Sub
No.1
- 回答日時:
こんにちは
>Selection.ShapeCountで選択した図形の数がでますが
当方の環境(Excel2019)では、カウントできませんね。
ですので、以下はマクロそのものが異なっている環境下の可能性がありますので、ご参考までに・・・
選択対象の可能性をどこまで広げて(=グラフやフォーム要素など)考えるのかにもよりますが、一般化して考えるのなら・・
1)Selection内の個々の要素をVarTypeなどでShapeのみに絞り込む
2)ShapeStyleで図形以外(画像等)を絞り込む
(ShapeStyleだけだと3D図形やSmartArtなども同じ範疇になります。)
(グループ化されているオブジェクトは、まず、グループが要素になりますので
グループ内を調べないと特定はできません。)
3)確実に図形だけを選別するなら、ActiveSheet.Picturesで存在する画像要素を
取得できますので、こちらと照合して画像であることを特定すれば良いでしょう。
※ 3)では「グループ化」されたグループ内の画像は取得できないようですので、注意が必要になります。
※ 選択される対象の可能性が限られた状態であるなら、上記のうち不要となる部分は省くことが可能と思います。
※ いきなり3)のチェックだけでカウントする方法も考えられると思います。
回答ありがとうございました。こちらの表記に誤りがありました。Selection.ShapeRange.Countの間違いでした。回答していただきましたが、大変申し訳ありませんでした。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Word(ワード) ワードで大量の図形を一括でグループする方法。 5 2024/01/25 11:34
- その他(Microsoft Office) ワードのマクロについて教えてください。 1 2023/01/22 11:43
- Visual Basic(VBA) Excelで、マウスで範囲を選択した列文字を選択した列の左の列に結合させるVBAをご教授願います 1 2022/02/05 09:24
- Visual Basic(VBA) エクセルのマクロを教えてください 4 2022/02/04 08:05
- Excel(エクセル) 特定の位置にあるマクロボタンについて 2 2022/04/19 18:13
- Visual Basic(VBA) VBAマクロ 決まっていない行を選択して別シートへ貼付け 4 2023/02/16 16:08
- Word(ワード) スナップショットをWordに張り付けるさい、「形式を選択して張り付け(S)」を選択すると複数の形式を 1 2022/06/06 23:26
- Visual Basic(VBA) PowerPoint VBA で画像の鮮明度を変更する方法がわかりません 2 2023/03/24 13:34
- Excel(エクセル) EXCELピボットテーブル(複数アイテム) 1 2023/04/27 12:15
- Windows 10 windowsのファイル複数選択について エクスプローラーなどでファイルを複数選択する際、 最初のフ 4 2022/05/22 16:39
このQ&Aを見た人はこんなQ&Aも見ています
-
オブジェクトをカウントする
Excel(エクセル)
-
エクセルマクロでシート内にある画像のみを選択する
Excel(エクセル)
-
【VBA】写真の縦横比を変えずに貼り付ける
Visual Basic(VBA)
-
-
4
指定範囲内のオートシェイプを数えるには?
Excel(エクセル)
-
5
EXCELのVBAで画像を選んだ順に貼り付ける方法
Excel(エクセル)
-
6
Excelで特定のオートシェイプのみカウントする方法はありますか?
Excel(エクセル)
-
7
エクセルで○や×の図形の集計は出来ますか?
Excel(エクセル)
-
8
オートシェイプを色別に個数をカウントすることは出来ますか?
Excel(エクセル)
-
9
VBAでセルを指定した画像のコピー&ペーストを繰り返したい
Excel(エクセル)
-
10
マクロで選択した図形の選択状態を解除するには
Excel(エクセル)
-
11
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
12
マウスで選択した図形のみVBAで移動したい。
Visual Basic(VBA)
-
13
エクセルのマクロでSelection.Shaperangeを使用した時のエラーについて
Visual Basic(VBA)
-
14
VBAエクセルに貼り付けた画像をセルにあった大きさにしたい(等倍)
Excel(エクセル)
-
15
VBAでオブジェクトが選択されているかどうかを判定する方法
Excel(エクセル)
-
16
マクロを実行すると画像がズレてしまいます
その他(Microsoft Office)
-
17
Excel VBAでセル内の画像を選択したい
Excel(エクセル)
-
18
オートシェイプに名前を付け名前毎に個数をカウントしたい
Excel(エクセル)
-
19
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
20
特定の名前のオートシェイプの有無を知りたい(エクセルVBA)
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで図形やワードアート...
-
CADデータをイラストレータで開...
-
エクセル図形保存のセルの非表...
-
指定範囲内で図形等を削除する...
-
word2010 SmartArtで連絡網作...
-
Office365 のExcelでオブジェク...
-
Excel組織図を横に展開する方法...
-
Excel 図形を移動させると複写...
-
オートシェイプで任意のドーナ...
-
ドローソフト
-
ワードの図形をコピー&ペイス...
-
エクセル マクロで、選択してい...
-
photoshop レイヤースタイルに...
-
Excel 2010 コネクタの接続が切...
-
パワーポイント(2016)、線を...
-
イラレCSでハッチ効果ありますか?
-
PowerPoint2013で、図形の枠線...
-
PhotoShopで図形からレイヤーを...
-
エクセル2000で閉合した図...
-
Illustratorで色の変更ができな...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで図形やワードアート...
-
指定範囲内で図形等を削除する...
-
Excel組織図を横に展開する方法...
-
word2010 SmartArtで連絡網作...
-
Office365 のExcelでオブジェク...
-
Excel に貼り付けた図形が、勝...
-
ワードで大量の図形を一括でグ...
-
Excel 図形を移動させると複写...
-
エクセル マクロで、選択してい...
-
パワーポイント(2016)、線を...
-
マクロで選択した図形の選択状...
-
マウスで選択した図形のみVBAで...
-
ワードの図形をコピー&ペイス...
-
jwCAD 登録した図形を呼び出し...
-
オートシェイプで任意のドーナ...
-
エクセル コマンドボタン 丸...
-
ゼンリン地図を切り取って花子...
-
JPEG画像をイラストレータの塗...
-
図形の特定の色を一括置換する...
-
EXCELでのデータ及び図形...
おすすめ情報
Fuji Lin様 回答ありがとうございます。
こちらの表記に誤りがありました。
Selection.ShapeRange.Count
でした。申し訳ありません。グループ化などはやらないので、ただ単に一つのアクティブシートで複数選択した図形の内の画像の数のみを取得したいです。