Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

24133 / 76732

←次へ　｜　前へ→


	【57952】挿入した写真の原型のWeight / Width

Abebobo - 08/9/23(火) 11:07 -


	引用なし

	パスワード

お世話になります。

報告資料作成時にエクセルで作成し、むやみに写真を挿入して（サイズが大きいまま）ブックサイズが肥大し、メールで送れない事態が会社で多発しています。
簡単にサイズを落とすことは、見つけることが出来ました。

Sub MyPic_Compression()
　 Dim Pic As Object

　 For Each Pic In ActiveSheet.Pictures
　　　With Pic
　　　　 .ShapeRange.LockAspectRatio = True
　　　　 .Cut
　　　　 .Parent.PasteSpecial Format:="Jpeg"
　　　End With
　　　Application.CutCopyMode = False
　 Next
End Sub

上記ですべての写真を軽くすることは出来るのですが、
その写真の　Ｗｅｉｇｈｔ　/　Ｗｉｄｔｈ　と　その写真の原型の　Ｗｅｉｇｈｔ　/　Ｗｉｄｔｈ
を比較してやれば、ブックを大きくしている真犯人の写真が特定できると思っています。

その写真の原型の　Ｗｅｉｇｈｔ　/　Ｗｉｄｔｈ　の値を　ローカルで探しましたが　取得の仕方がわかりませんでした。

エクセル2000　ＸＰ　ＳＰ２　です。　
上記の考え方が正しいか　と　その写真の原型の　Ｗｅｉｇｈｔ　/　Ｗｉｄｔｈ　の値取得　を教えてください。

1 hits

▼

【57952】挿入した写真の原型のWeight / Width Abebobo 08/9/23(火) 11:07

≪