【エクセルVBA】画像をエクセルに貼るマクロ１
こんにちはｐｏｔｈです。
はじめての記事は、エクセルVBAを使ってエクセルファイルに写真とかの画像をペタペタ貼り付けるマクロの紹介です。
実験とかで結構たくさん写真を撮ることがあるのですが、それをエクセルで編集したいと思ったら結構な手間なんです。
例えば、条件が３つあって２枚ずつ写真を撮ったとします。
これをエクセルに貼り付けようとすると、
こんな感じになります。
ここから、「サイズ変更」⇒「きれいに並べる」⇒「写真の説明」ってしていくとそれだけで結構大変です。
今回写真が６枚しいかないですが、それが２０枚とか、１００枚とかになるともうパニックです。並べてるうちに「どの写真がどの条件だっけ？」とかなります。
これを楽にするマクロです。完成形はこんな感じ
エクセルのセル何行分のサイズにするか指定し、画像を貼り付ける列を指定します。その２つのパラメータを入力して、ボタンを「ポチっ」
すると、フォルダーの選択画面になるので貼りたい画像が保存されているフォルダーを選択すると、全部自動で貼り付けてくれます。またファイル名も下に書くようにしています。
上の画像は2列で8セル分のサイズにしてます。3列で3セル分にするとこんな感じ
ただ画像をそのまま貼り付けるので、写真などの重いデータを大量に貼るとエクセルが非常に重くなるので、あらかじめフリーソフトでデータを軽くしておきます。おすすめは「縮小専用」
具体的なコードはぼちぼち書いていきます。
