エクセル 写真挿入

質問

こんなマクロを組み込みたいのですが、どなたか教えてください。
ＯＳはＸＰ　　エクセル２０００です。

１．質問
Ｘというフォルダにある写真全てを次のように貼り付けたいです。
Ａ１に写真のある場所先（写真ファイル名）
Ａ２にその写真。サイズは元サイズの３０％。

Ａ３にＸというフォルダにある２枚目の写真
Ａ４ににその写真。サイズは元サイズの３０％。

Ａ５にＸというフォルダにある３枚目の写真
Ａ６ににその写真。サイズは元サイズの３０％。

こんな流れでＸというフォルダの写真すべてを
シートに貼り付けるマクロを教えてください。

２．現状
挿入→図→サイズ変更　の繰り返しで、かなり時間が
かかってしまっています。

宜しくお願いいたします。

回答No.2

imogasi · ベストアンサー

こういうのはエクセルVBAでも上級の課題で、課題のまる投げになっている。自分でWEB照会でもして、勉強して行くしかない。
ーー
http://oshiete1.goo.ne.jp/qa2091001.html
の＃５と、そこで紹介しているWEB記事を参考に、勉強し疑問点を絞って再質問したらどうですか。
ーー
課題は
A.指定フォルダのファイル名を全て（または条件付で）知る方法
（＝コード）
B.図のシートへの挿入の方法
C.サイズ、位置あわせの方法
D.連続処理の流れのコントロールの方法
を勉強することです。
ーーーー
＞サイズは元サイズの３０％
上の私の回答では絶対的な値を指定しているが、これはどうしたらよいか判らないな。
セルの幅は手動かVBAで設定し、それに合わせるなら
○.Width=Cells(i,j).Width
のようにする。

お礼

回答有り難うございます。
質問を絞って再質問さて頂きます。

回答No.1

marbin

Dir関数でフォルダ内のファイルを取得できます。

Dir関数の参考サイトです。
ループでファイルを取得します。
拡張子の指定も可能です。

http://www.officetanaka.net/excel/vba/file/file07.htm

画像の貼付け、サイズ変更はマクロの自動記録が参考になる
と思います。
とりあえず、ファイル一覧の取得、画像の貼付け、貼り付けた
画像のサイズ変更を出来るようにしてみてください。
それぞれが出来たら、これを組み合わせて１連の作業で出来る
ようにしましょう。

お礼

回答有り難うございます。
参考にさせていただきます。