Excel VBA質問箱 IV

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

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


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

57911 / 76732

←次へ　｜　前へ→


	【23555】図の圧縮について

やまもと - 05/3/28(月) 9:57 -


	引用なし

	パスワード

お世話になります。
初級者です。どうぞ、よろしくお願いします。

シート内にたくさんの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

2 hits

▼

【23555】図の圧縮について やまもと 05/3/28(月) 9:57

≪