√100以上エクセル画像圧縮一括シート 154944-エクセル画像圧縮一括シート

Sub PicCompression1() 'アクティブシート上の図を電子メール用に圧縮 Dim oneShp As Shape Dim pasteLeft As Double, pasteTop As Double For Each oneShp In ActiveSheetShapes If oneShpType = msoPicture Then oneShpSelect ApplicationSendKeys "%e~" '電子メール用 (96 ppi)を選択 ApplicationCommandBarsExecuteMso "PicturesCompress" End If Next End Sub

エクセル画像圧縮一括シート- 画像を挿入した資料を作成したら内容のわかりやすい資料ができますが、ファイルの容量が重くなってしまう時があります。そのような時はファイルを軽くし画像を圧縮することで解決することができます。そうはいっても、『・・・09/9/16「Excel VBA 写真取込コード」（当ブログ初記事）に書いた写真取込コードに圧縮処理を追加しました。写真の枚数が多い場合、エクセルの起動や動作が極端に遅くなるので圧縮処理を探してましたが、 Excel既存の機能でなぜか？（笑）圧縮できました。