エクセルでマクロを実行したいのですが。

質問

エクセル上に大量の写真を縦に並べて挿入したいのですが、自動でやるためのマクロのやり方がまったくわかりません。
たとえばAの１に写真１を挿入して４×３センチにする。次にAの１０に写真２を挿入してまた４×３センチにする。
ということを繰り返したいのですが、自動でできますでしょうか・・・。
写真は１００枚くらいあって、１つのフォルダにまとめてあります。
エクセルの本をいくつか見てみたのですが、マクロについて書かれた本がなかったので、もしかしたら初心者にはできないことなのかもしれませんが、お願いします。

回答No.3

papayuka · ベストアンサー

#1です。

１）新規ブックでツール－マクロ－VisualBasicEditor（以下VBE）を実行
２）VBE画面が開くので、VBE画面で挿入－標準モジュール
３）出てきた標準モジュールに Sub Test() ～ End Sub をコピペ
４）VBE画面を閉じる
５）ブックを画像があるフォルダに適当な名前で保存
６）ツール－マクロ－マクロで Test を実行

これでフォルダ内にある jpg に対して処理が走ります。

お礼

できました！できました！マクロ初体験です。
ありがとうございました。
これを機会にプログラミングを覚えてみます。
とても助かりました。

回答No.2

marbin

本屋さんにある本には
"マクロ"とは書かれてないと思います

タイトルに
"VBA"
と付いているものがマクロについて記載されています。

お礼

ああ、ありがとうございます。
早速、本屋へ行って調べてみます。
ＶＢＡという文字は見かけたのですが、あれだったんですね・・。

回答No.1

papayuka

出来るかと言うなら出来ます。
Excelファイルに100枚も画像を取り込むのは推奨しませんが、、、

サンプルです。
マクロを含むブックを画像と同じフォルダに保存してから実行します。
対象は jpg

Sub Test()
Dim fName As String, i As Integer, r As Range

　ChDrive (ThisWorkbook.Path)
　ChDir (ThisWorkbook.Path)
　fName = Dir(ThisWorkbook.Path & "\*.jpg", vbNormal)
　Set r = ActiveSheet.Range("A1")
　　Do While fName <> ""
　　　 ActiveSheet.Shapes.AddPicture fName, _
　　　　　False, True, r.Left, r.Top, 113.25, 84.75
　　　 Set r = r.Offset(10, 0)
　　　 fName = Dir()
　　Loop

End Sub

補足

出来ることがわかってよかったのですが、まったくの初心者なので、うまく実行できません・・・。
マクロやVisualBasicに関する初心者向けの参考書やＨＰがありましたら教えていただきたいのですが・・。プログラミングをやったことがない者でもできるものなのでしょうか。（ＨＴＭＬは少し経験がありますので、上記のプログラムもなんとなく意味はわかるのですが・・・。）