Dim strVerzeichnis$, strDatei$
Dim pct As Picture
Dim lngZeile, lngSpalte As Long
Dim varBreite, varHoehe As Variant
strVerzeichnis = "X:\[Hier stand das Verzeichnis]"
strDatei = Dir(strVerzeichnis & "\[Hier Bild Name].png")
lngZeile = 1
lngSpalte = 5
varBreite = .Columns("H:J").Width
With Worksheets("Desk Audit")
.Cells(lngZeile, lngSpalte).Select
Set pct = .Pictures.Insert(strVerzeichnis & "\" & strDatei)
If pct.Name Like "Picture*" Then
pct.Name = "[Neuer Name]"
End If
pct.Width = varBreite
pct.Left = varBreite + 215
varHoehe = .Shapes("[Neuer Name]").Height
.Rows(lngZeile).RowHeight = varHoehe
End With