Grafik laden - Dateipfad in Zelle

Private Sub CommandButton1_Click()
With Application
.Calculation = xlAutomatic
.MaxChange = 0.001
ActiveWorkbook.PrecisionAsDisplayed = False
End With
If MsgBox("Alles berechnet!" & Chr(13) & "Richtiges Papier eingelegt?" & Chr(13) & " _
Jetzt drucken?", vbYesNo) = vbNo Then
Exit Sub
Else
If MsgBox("Beidseitigen Druck eingestellt?", vbYesNo) = vbNo Then
Exit Sub
Else
Range("H1") = 1
Dim Counter As Integer
Dim n As Integer
For Counter = 294 To 294
Worksheets("Stapel auto").Cells(Counter, 9).Value = Counter
If Cells(Counter, 10) = 1 Then
Range("H1") = Cells(Counter, 9)
For i = 1 To Int(Cells(Counter, 14) / 50) + 1
ActiveSheet.Pictures.Insert (Range("h2").Value)
ActiveSheet.PrintOut
Next i
End If
n = n - (Cells(Counter, 10) = 1)
Next Counter
MsgBox ("Das war's:" & " " & n & " " & "Stapelanhänger gedruckt")
End If
End If
End Sub