|
お世話になります。
初級者です。どうぞ、よろしくお願いします。
シート内にたくさんのjpg(写真)がたくさん張ってあり、ファイルサイズが異常に大いいので、図の圧縮を行うと、サイズが小さくなるということがわかったので、
大量に、ファイルがあるので、自動記録でとってみました。
本題
自動記録では、図の圧縮内の細かい設定(解像度の変更)が、記録されていないようで、
違うファイルで下記の自動記録で実行しても、細かい設定が反映されません。
どなたか、教えてください。
Sub 図の圧縮()
' Macro8 Macro
' マクロ記録日 : 2005/3/28 ユーザー名 : yamamoto
ActiveSheet.Pictures.Select
Selection.ShapeRange.PictureFormat.Brightness = 0.5
Selection.ShapeRange.PictureFormat.Contrast = 0.5
Selection.ShapeRange.PictureFormat.ColorType = msoPictureAutomatic
Selection.ShapeRange.PictureFormat.CropLeft = 0#
Selection.ShapeRange.PictureFormat.CropRight = 0#
Selection.ShapeRange.PictureFormat.CropTop = 0#
Selection.ShapeRange.PictureFormat.CropBottom = 0#
End Sub
|
|