バッチ・マクロのTOPへ Excelブック内に,画像の「サムネイル集」を作りたいとしよう。 親フォルダの中に,サブフォルダがたくさんあり, サブディレクトリの中には画像がたくさんある。 それらの画像のサムネイルを,サブフォルダの名前と共に並べて列挙したい。 そういう場合,Excel VBAのマクロでは,下記のような処理が関係してくる。 ある親フォルダ内の子フォルダを,すべてスキャンして取得する。 あるフォルダ内の画像ファイルを,すべてスキャンして取得する。 画像ファイルを,特定のサイズで,シート内に埋め込む。 シートの行や列の高さを調整する。 これらの条件をすべて満たすようなサンプルコードを,下記に掲載する。 VBAサンプルコード 親フォルダの場所と,画像ファイルの拡張子について書いてある部分は,必要に応じて書き換える。 画像のサムネイルは,縦横比を無視してヨコ6cm×タテ1cmで貼り付け