業務に役立つExcel&VBA 画像自動リサイズマクロ&データも一括圧縮

シェアする

  • このエントリーをはてなブックマークに追加
  • Evernoteに保存Evernoteに保存
  • 0

業務に役立つExcel&VBA 今回は、画像処理関係です。画像を貼り付けたいセル上でクリックすると、ファイルが開き、選択した画像がセルの大きさに自動でリサイズされる大変便利なマクロをご紹介します。更に貼り付けた画像データを一括で圧縮するマクロ付き貼り付けた全画像を削除するマクロ付きと至れり尽くせりです。

はじめに

Excelファイルへ、画像を貼り付けての資料作成をする業務も多々あるかと思います。そんなときに、いちいち画像を開いて選択して、貼り付けて、大きさを調整して、画像同士の位置を調整してとか、丁寧にやればやるほど、かなりの時間を要する作業だと思います。

そんなとき、あらかじめフォーマットを作成したテンプレへ画像のサイズ無関係に次々と貼り付けるだけの作業になれば、相当な作業効率アップが図れます。

今回ご紹介するのは、まさに画像のリサイズマクロです。更に貼り付け前にデータを圧縮してからとかの手間すら省く、データ一括圧縮マクロ付き!更に全ての画像を一括で削除するマクロも付けての至れり尽くせりなサンプルをご紹介させて頂きます。

写真&画像を自動リサイズ&データ一括圧縮&全画像削除

それでは、まずサンプルファイルをご紹介させて頂きます。

サンプルファイル(画像は全て拡大します。)

画像リサイズ①

こちらがサンプルファイルです。リサイズされるのをわかりやくする為に、6カ所大きさ違いで画像の貼り付け欄を設けました。といってもセルを結合して、1セルとしているだけです。

写真&画像リサイズの説明

画像リサイズ②

このようにセルをダブルクリックするとファイルが開きます。

画像リサイズ④

6カ所に画像を貼り付けてみました。しっかりリサイズされております。

画像リサイズ③

画像を選ばずにファイルを閉じると、このようにポップアップウィンドウが開くように設定してあります。

画像データ一括圧縮の説明

では、画像データ一括圧縮の説明です。まず下記の画像を参照

画像リサイズ⑤

「開発」を押して

「マクロ」を押して下さい。

画像リサイズ⑥

ポップアップから、「画像圧縮」を選んで実行です。

画像リサイズ⑦

「上書き保存」を聞いてくるので、OKで保存しましょう。

画像リサイズ⑧

「保存しました。」のポップアップに、OKで次へ進みましょう。

画像リサイズ⑨

ここで、「画像データを圧縮するか」のポップアップが出ますので、OKで圧縮しましょう。

画像リサイズ11

わかりずらいですが、圧縮後です。

953KBだったデータ容量が

画像リサイズ10

401KBへ圧縮されました。

画像リサイズ12

図の画像データで1枚のデータ容量が小さいから圧縮比率が少ないですが、これが写真データで画素数が大きいデータ容量であれば、圧縮比率はもっと大きくなります。

例えば、4MBのデータが700KBとかです。

全画像データの一括削除の説明

では、全画像データの一括削除のご説明です。

画像リサイズ⑤

「開発」を押して

「マクロ」を押して下さい。

画像リサイズ13

ポップアップから、「全ての画像削除」を選んで実行です。

画像リサイズ14

「全ての写真及び画像を削除しますか?」のポップアップが出ますので、OKで削除されます。

画像リサイズ①

見事に一括で削除されました。

それでは、VBAコマンドをご紹介します。

VBAご紹介

写真&画像のリサイズ

ブロックごとに見て行きましょう。

  • Excelセルをダブルクリックをしたら、というコマンドです。

  • 画像をファイルから選択していくコマンドです。

画像を選ばなかった場合の、IFが入っています。

対応画像ファイルは

  • jpg
  • bmp
  • tif
  • png
  • gif

です。

ここがポイントロゴ

icon-check-square-o このブロックで、ピクチャフォルダからリンクを切り離して、このファイルへ再構築しています。データを書き換えないと、例えば、メールでファイルを送信した場合、リンクしているパソコンからしか画像が開けなくなってしまいます。

  • あとの後半部分は全て、画像の調整させるコマンドとなっています。

画像データ一括圧縮

前半部分は、圧縮前の、データ上書き保存や、圧縮するか否かの再確認コマンド部分です。

以前にも同じコマンドを使用したのを再利用しました。

業務に役立つExcel指定範囲をVBAで一括削除。DL付。
業務に役立つExcelで事前に選択した範囲の値を、マクロボタン一つで自動で削除してしまう計算式をご紹介します。DLファイル付です。はじめに日頃の業務の中で繰り返し作...

実際の圧縮コマンドは下記の後半部分です。

全画像データの一括削除

こちらも同じく、前半が再確認コマンド、後半部分が削除コマンドとなっています。

ダウンロードファイル

“Excelファイル 写真&画像の自動リサイズ&圧縮&削除” をダウンロード PhotoAutoResize.xlsm – 1444 回のダウンロード – 37 KB

  • ご自身で使用されているファイルへご使用されるならば、この記事を参考に計算式をコピペして使用して下さい。
  • もちろんダウンロードして頂いたファイルのデータベースシートもそのままご利用になれますので、ご活用下さい。

さいごに

今回ご紹介させて頂いた、写真&画像リサイズは画像を使った、社内資料作成や、報告用ファイル作成に大いに役立つかと思います。

貼り付ける画像が多ければ多いほど、作業効率は拡大に上がるだけでなく、予めサイズ調整したセルへ貼り付けるので、画像同士の位置調整も綺麗にまとまるでしょう。

皆さまの業務に取り入れお役立て頂ければ幸いです。

もちろん、VBA・関数を知っていても、活用出来るか、否かは皆さま次第です。

是非、日頃の業務にお役立て頂ければ幸いです。

以上、業務に役立つExcel&VBA 画像自動リサイズマクロ&データも一括圧縮。DL付 でした。

ご視聴ありがとうございました。

合わせて読みたい

業務に役立つExcel&VBA 数式を判定する関数IsFormulaとその活用。
業務に役立つExcel&VBA 今回は豆知識的な関数。数式を判定する、「IsFormula関数」をご紹介します。この関数は、Excel2013以降、実装された関数で、それ以前のExcelは...
業務に役立つExcel ポインタしたセル行を網掛けたりのVBA
業務に役立つExcelで、今回も大変便利な、ポインタしたセル行を網掛けたり文字の色を変えたり書式が変わる、VBAをご紹介します。置いたセルの行だけがポインタしている...
業務に役立つExcel 文字列の特定文字を消す関数2種類
業務に役立つExcelで、大変便利な、文字列の中で特定の文字だけを削除する関数 2種類ご紹介します。今回もDLファイル付です。はじめにExcelのファイルで、セルへどん...
業務に役立つExcel 選択したリスト項目だけを別リストへ抽出関数。
業務に役立つExcelで、リストで選択した項目のもののみを別リストへ抽出してリスト選択出来るようにする関数です。大変便利です。今回もDLファイル付です。はじめにExce...
業務に役立つExcel COUNTIFSにSUBTOTAL関数を追加
業務に役立つExcelで、COUNTIF関数へSUBTOTAL関数を追加し、さらにCOUNTIFS関数にSUBTOTAL関数を追加するまで昇華させます。今回はちょっとマニアックですが、知ってい...
業務に役立つExcel重複データ最新のみを抽出する関数。DL付。
業務に役立つExcelで、重複するデータの中から最新のみを抽出してくれる(重複しない場合はそのデータを抽出)大変便利な関数複数混合式を紹介します。今回もDLファイル...
業務に役立つExcelデータを列と行で抽出。INDEXとMATCH関数。DL付。
業務に役立つExcelで、作成したデータベースから行と列でピンポイントにデータを抽出してくれる大変便利な関数( INDEX関数とMATCH関数)を紹介します。今回もDLファイル...
業務に役立つExcel選択範囲に一瞬で罫線。DL付。
業務に役立つExcelで任意に選択した範囲へ罫線をマクロボタン一つで自動で挿入してしまう計算式をご紹介します。DLファイル付です。はじめに日頃の業務の中で繰り返し作...
業務に役立つExcel任意行ごとに空白行自動挿入。DL付。
業務に役立つExcelで任意に指定した行数ごとにマクロボタン一つで自動で空白行を挿入していく計算式をご紹介します。DLファイル付です。はじめに日頃の業務で、何百行に...
業務に役立つExcelデータベースを自動で仕訳し抽出。DL付。
業務に役立つExcelで作成したデータベースを、自動で仕訳し別シートへ抽出させる計算式をご紹介します。DLファイル付です。  はじめに この計算式で抽出させる条件とし...
業務に役立つExcelファイル会計年度計算の関数式。DL付。
業務に役立つExcelのファイリングで会計年度計算の関数式です。DLファイル付きです。   Excel会計年度データの抽出に役立つ、会計年度の計算式を日付列をもとに求めま...
業務に役立つExcelで検索エンジンVBAを5分で搭載。DL付。
業務に役立つExcelのデータベースファイリングに、VBAで作成した検索エンジンを5分で簡単に搭載出来ます。サンプルDL付です。   はじめにExcelでデータベース内の集計...

スポンサーリンク

シェアする

  • このエントリーをはてなブックマークに追加
  • Evernoteに保存Evernoteに保存

フォローする


スポンサーリンク

トップへ戻る