|
お世話になります。
報告資料作成時にエクセルで作成し、むやみに写真を挿入して(サイズが大きいまま)ブックサイズが肥大し、メールで送れない事態が会社で多発しています。
簡単にサイズを落とすことは、見つけることが出来ました。
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
上記ですべての写真を軽くすることは出来るのですが、
その写真の Weight / Width と その写真の原型の Weight / Width
を比較してやれば、ブックを大きくしている真犯人の写真が特定できると思っています。
その写真の原型の Weight / Width の値を ローカルで探しましたが 取得の仕方がわかりませんでした。
エクセル2000 XP SP2 です。
上記の考え方が正しいか と その写真の原型の Weight / Width の値取得 を教えてください。
|
|