|
▼neptune さん:
ありがとうございます。
>マクロの記録でやってみたのですが、下記の通りで、
ActiveSheet.Shapes("Picture 270").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#
図(写真)の圧縮になっていませんでした。
貼り付けた図(写真)の圧縮(解像度の変更)をしたいのですが・・・
|
|