貼付された写真の位置データを取得する方法

質問

写真の貼付されたエクセルファイルの管理に手を焼いています。
データが重く開閉や保存に時間が掛かり過ぎるのです。
そこで、次のようなマクロを作りたいと考えています。
　(1)既存の「写真の貼付されたエクセルファイル」の写真の位置データと大きさのデータを取得し、写真を削除する。
　(2)元の位置に元の大きさで、貼付前の写真データを「図の挿入」という方法で貼り付ける。

しかし、写真の位置データと大きさのデータを取得する方法が解りません。
教えて下さい。

回答No.1

merlionXX · ベストアンサー

仮にその写真の名前がPicture 3なら、以下で求められますよ。

Sub test()
With ActiveSheet.Shapes("Picture 3")
t = .Top
l = .Left
h = .Height
w = .Width
MsgBox "Top位置:" & t & Chr(13) & "Left位置:" & l & Chr(13) & _
"縦サイズ:" & h & Chr(13) & "幅サイズ:" & w
End With
End Sub

お礼

ありがとうございます。
助かりました。

回答No.2

imogasi

＞マクロを作りたいと考えています。
Ｔｏｐ等をご存知で無い方が大丈夫ですかね。
私なぞ不勉強、不知で言ってますが、「写真の貼付された」エクセルファイルの「添付」（ＷＥＢ照会しても、この用語は出てこないようです）や、「図の挿入」という方法で貼りつける」の「貼り付ける」
の違いに付いて、十分に仕組み的に、勉強されたのでしょうね。
もしもどちらも開いたときに、画像を全部読み込む仕組みなら、状況は改善されないのでは
無いですか。
画像ファイルをクリックしたときに表示するとか、ページ限定など何かできないのですかね。