エクセルマクロでシート内にある画像のみを選択する

質問

エクセルマクロでシート内にある画像のみを選択する

ActiveSheet.DrawingObjects.Select

これだとエクセルのシート内にあるすべてのオブジェクトを選択してしまいます。
テキストボックスなどのオブジェクトは選択せずに、写真などの画像のみを
選択したいのですがどのようにしたらよいのでしょうか。
どうかよろしくお願いいたします。

回答No.2

merlionXX · ベストアンサー

ANo1 merlionXXです。
テストした結果、さきほどの回答では画像のほかになぜかOLEObjectまで選択されてしまうことに気づきました。
不思議です。（￣ロ￣; ？

訂正します。
ほかにもっと簡単な方法があればわたしも知りたいです。

Sub test02()
　　Dim miPc as Picture
　　For Each myPc In ActiveSheet.Pictures
　　　　If TypeName(myPc) <> "OLEObject" Then
　　　　　　myPc.Select False
　　　　End If
　　Next
End Sub

お礼

お礼がおそくなりましたが、頂いた回答で解決いたしました。
ありがとうございました。

回答No.1

merlionXX

ActiveSheet.Pictures.Select ではどうでしょう？