Excel VBA質問箱 IV

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

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


57917 / 76738 ←次へ | 前へ→

【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

0 hits

【23555】図の圧縮について やまもと 05/3/28(月) 9:57 質問
【23596】Re:図の圧縮について G-Luck 05/3/29(火) 17:11 発言
【23606】Re:図の圧縮について こうちゃん 05/3/30(水) 8:53 発言
【23631】Re:図の圧縮について やまもと 05/3/31(木) 10:44 お礼

57917 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free