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も見ています
-
「どうして捨てられないの?」前妻の物を捨てられない男性の心理って?
前妻の物を捨てられない理由に加え、捨てるための手段はあるのかを専門家に聞いてみた!
-
【マクロ】1つのセルから結合されているセルへのコピー貼り付けについて
Excel(エクセル)
-
Excel VBAについて【図形を組み合わせて作成した、料金別納表示の削除の仕方】
Excel(エクセル)
-
Googleシート「A1」でなくて「A001」にしたいのですが
Excel(エクセル)
-
-
4
エクセルで【0.5日と1日】を表示したいのですが。。。
Excel(エクセル)
-
5
<急募>エクセルデータの関数を用いた並び替えについて
Excel(エクセル)
-
6
Excel データの並び替え
Excel(エクセル)
-
7
マクロについて教えてください 下記のマクロはセル値「R18」の数字とフォルダ名の一部が該当した場合に
Excel(エクセル)
-
8
IF関数
Excel(エクセル)
-
9
EXCELファイルが読み取り専用でしか開かず上書きも出来ません。 EXCELを開いて最上部中央部のフ
Excel(エクセル)
-
10
エクセルマクロ 並び替え 手動設定した範囲の書き方
Excel(エクセル)
-
11
なぜか「Nextに対応するForがありません」
Excel(エクセル)
-
12
VBAで、サブフォルダにある複数のブックから一致する値を抽出するコードを教えて下さい
Excel(エクセル)
-
13
Excelのシート背景に不明な文字が表示されています。何故?
Excel(エクセル)
-
14
曜日の 月 を (月) と表示させる方法について
Excel(エクセル)
-
15
エクセルのセル統合について
Excel(エクセル)
-
16
データから単位文字を除去して計算する方法は?
Excel(エクセル)
-
17
Excel 書式のクリア・値貼付けをしても書式が変わらない
Excel(エクセル)
-
18
ある値に対して3番目に大きな値を、なければ2番目に大きな値、それもなければ1番大きな値を表示させたい
Excel(エクセル)
-
19
エクセルで条件書式と数式の組み合わせはできる?
Excel(エクセル)
-
20
[条件付き書式]について、
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで図形やワードアート...
-
エクセル マクロで、選択してい...
-
Creative Cloudフォトプランで...
-
Office365 のExcelでオブジェク...
-
重なったオートシェイプで下の...
-
illustrator、photoshopで面積...
-
指定範囲内で図形等を削除する...
-
PowerPointの描写ツールについて
-
ベクターワークスで線を複写
-
EXCEL2007の図形の範囲指定につ...
-
Excelで図形(線分)を挿入し、 ①...
-
イラストレーター ピクセレー...
-
マクロで選択した図形の選択状...
-
Excel に貼り付けた図形が、勝...
-
ワードの図形をコピー&ペイス...
-
イラレ 漢字の一部の色を変えたい
-
エクセルのグラフを画像として...
-
Excel組織図を横に展開する方法...
-
エクセルで図形を一気に消す方法
-
パワーポイント(2016)、線を...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで図形やワードアート...
-
指定範囲内で図形等を削除する...
-
Excel組織図を横に展開する方法...
-
word2010 SmartArtで連絡網作...
-
Excel に貼り付けた図形が、勝...
-
Office365 のExcelでオブジェク...
-
なぜか同色を指定しているのに...
-
Creative Cloudフォトプランで...
-
jwCAD 登録した図形を呼び出し...
-
Excel 図形を移動させると複写...
-
オートシェイプで任意のドーナ...
-
マウスで選択した図形のみVBAで...
-
パワーポイント(2016)、線を...
-
ワードの図形をコピー&ペイス...
-
エクセル マクロで、選択してい...
-
PowerPoint2013で、図形の枠線...
-
マクロで選択した図形の選択状...
-
Illustratorで色の変更ができな...
-
イラストレーターには“書式のコ...
-
イラストレーターで複数の線で...
おすすめ情報
Fuji Lin様 回答ありがとうございます。
こちらの表記に誤りがありました。
Selection.ShapeRange.Count
でした。申し訳ありません。グループ化などはやらないので、ただ単に一つのアクティブシートで複数選択した図形の内の画像の数のみを取得したいです。