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

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

ActiveSheet.DrawingObjects.Select

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

No.2 ベストアンサー 回答者： merlionXX 回答日時： 2010/08/26 09:47

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

この回答へのお礼

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

お礼日時：2010/09/07 14:15

No.1 回答者： merlionXX 回答日時： 2010/08/26 09:15

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