画像の差し込み印刷（エクセル）

　どうもこんばんわ、水槽がエライ事になってほかのことを考えようとしてエクセルのVBAをいじっていた阿良々木です。
　皆さんはエクセルのVLOOKUP関数を使って帳票を作成したりしたことありませんか？
　それで、画像も差し込めたらいいとか考えたことありませんでしょうか？僕はあります。
　ワードの差し込み印刷でも同じようなこと出来るみたいですけど、しっくりきませんでした。
　なので、下のようなコードを組んでみました。

標準モジュール　※画像切り替え用

Sub LP()
Dim picst As String
Sheets("TEMP").Image1.Picture = LoadPicture("") 'img初期化
picst = ThisWorkbook.Path & "\PIC\" & Right("00" & _
Sheets("TEMP").Range("B1"), 2) & ".jpg"
If Dir(picst) = "" Then
Sheets("TEMP").Image1.Picture = LoadPicture("")
Else
Sheets("TEMP").Image1.Picture = LoadPicture(picst)
End If
End Sub

---

スピンボタンやコマンドボタン
Option Explicit

---

Private Sub SpinButton1_Change()
Call LP
End Sub

---

Private Sub CommandButton1_Click()
Dim bangou, a, n As Long
Dim picst As String
a = Range("F1").Value '開始番号
n = Range("H1").Value '終了番号
For bangou = a To n
DoEvents
Range("B1").Value = bangou
Call LP
DoEvents
ActiveWindow.SelectedSheets.PrintOut
Next bangou
End Sub

　え～では、まず、ブックをひとつ作成、同一階層に「PIC」というフォルダを作成し、01.jpg～10.jpgの画像を用意しておきます。
　次に、えーとシート「TEMP」にImage1を配置します。それから
　え～っと(´Д｀;)　詳しく説明すると長くなるのでここで終り（(ﾟДﾟ)ﾉ）
　いやいや
　じゃあ簡単に
　シート「LIST」の表をVLOOKUP関数で参照、LP（LoadPictureの略）をCallで呼び出しImage1の画像を切り替えます。以上です。
　うーん(゜レ゜)いいのかこれで(´Д｀;)
　もし、使ってみたいけど使い方がわからないという方がいらっしゃいましたらコメントお願いします。
　そういえば、ここ（FC2ブログ）って画像や動画以外、zipや.xlsmとかアップロートできるのでしょうか？
　ご存知の方コメントください。では(o・・o)/
　自己レス：http://blogfc2manual.blog.fc2.com/blog-entry-87.htmlにのってました。無理みたいですね。
　■ シート名「TEMP」

　■ シート名「LIST」

あっ、3が消えてる、まぁいいか