Sub bilddrucken()
Dim pic As Shape
verzeichnis99 = laufwerk & "\Bilder_SAP\" & CStr(masterartikel) & ".jpg"
If Dir(verzeichnis99) = "" Then Set pic = Nothing: Exit Sub
Set pic = Worksheets("Bestellliste").Shapes.AddPicture(Filename:=verzeichnis99, LinkToFile:=msoFalse, _
SaveWithDocument:=msoTrue, Left:=Worksheets("Bestellliste").Cells(d, 7).Left + 2, _
Top:=Worksheets("Bestellliste").Cells(d, 7).Top + 2, Width:=-1, Height:=-1)
With pic
.LockAspectRatio = msoTrue
If .Height <> 30 Then .Height = 30
If .Width <> 30 Then .Width = 30
.Left = Worksheets("Bestellliste").Cells(d, 7).Left + 2
.Top = Worksheets("Bestellliste").Cells(d, 7).Top + 2
End With
Set pic = Nothing
End Sub