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