Hallo liebe Community,

Ich habe ein Makro geschrieben das ein Bild aus einer Datei in ein Tabellenblatt kopiert. Dieser Code funktioniert auch wunderbar, nur leider wird das eingefügte Bild sehr wahrscheinlich verschoben und der Dateipfad dann ungültig. Da das Makro aber ein neues Tabellenblatt in einer existenten Arbeitsmappe erstellt hatte ich mir überlegt das Bild einfach in einem Tabellenblatt einzubetten und dieses dann zu kopieren. im alten Code wird aber noch Größe und position anhand einer Variable "pct" eingestellt was dann leider nichtmehr funktioniert.

Hier mal der funktionierende alte Code:

'Variablen zum einfügen der Grafik
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

Worksheets("Fragenliste").Shapes.Range(Array("[Name des Bildes]")).Select
Selection.Copy
Set pct = Pictures.Insert(Selection.Paste)