欲しい画像を取得出来る
![](https://www.slt-pgming-21.net/wp-content/uploads/eye-repic-320x180.png)
VBA|コードが長いプロシージャを短く切り分ける|マクロを部品化する
VBAが理解できる様になるとコードは短くスッキリ書けるのですが勉強初期ではプロシージャが長くなりがちです。可読性も作業性も悪いです。本記事では長いプロシージャを3つに分けて読みやすくするのと同時に作業性(メンテナンス性)も向上させます。
![](https://www.slt-pgming-21.net/wp-content/uploads/eye-saiki_2-320x180.png)
【VBA_再帰】複数フォルダ内を検索拡張子を決めて画像を取り出す
1つ前の記事で再帰の基本構造を解説しました。次は応用編です。階層の異なるフォルダ群を検索し特定の拡張子を持った画像データを取り出すというコードを紹介します。再帰を使う事でフォルダ群の隅々まで画像を検索する事ができます。
![](https://www.slt-pgming-21.net/wp-content/uploads/adperr-2-1-320x180.png)
AddPictureメソッドエラー対策|指定された値は境界を超えています
AddPictureメソッドを使用した際「指定された値は境界を超えています」というエラーが出ます。引数のLinkToFileとSaveWithDocumentが両方共Falseの時にこのエラーが発生するのでエラーが出ない様に対策します。
![](https://www.slt-pgming-21.net/wp-content/uploads/adptest-eye-320x180.png)
AddPictureメソッドの第2、3引数の組み合わせ確認テスト
LinkToFileとSaveWithDocumentという引数について解説します。引数の内容自体が難しいのでうまく使いこなせている人は少ないです。記事内では全通りの組み合わせをテストしてみます。結果をマトリクスにまとめました。
![](https://www.slt-pgming-21.net/wp-content/uploads/illust_picture-320x180.png)
VBAで画像を取り込む高速で画像自体を取得しエクセルに貼り付ける
「一定条件のもとフォルダから画像を取り出してエクセルに貼り付けるマクロを作りたい」の続編。900枚の画像処理は3秒で完了。2度手間は解消、0.1秒のウエイトは無しでも安定稼働します。キーはAddpictureメソッドです。
![](https://www.slt-pgming-21.net/wp-content/uploads/grafic-1-320x180.jpg)
VBAで画像を取り込むフォルダを周回必要な画像をエクセルに貼り付け
複数フォルダ内の画像をキーワードを元にエクセルに貼り付ける方法を紹介 「一定条件のもとフォルダから画像を取り出しエクセルに貼り付けるマクロを作りたい」という依頼に対して作業をしてみました。