Hallo,
ich habe bei folgendem Code das Problem, dass die Bilder nicht mehr korrekt in die Zelle "gelegt" werden, sondern verrutschen. Was kann ich hier nun tun?
Sub Bilder_einfügen()
Dim Pfad As String
Dim strDatnam As String
Dim Wiederholungen As Long
Dim shp As Shape
Dim Hoehe As Single
Dim Breite As Single
On Error Resume Next
Pfad = "G:\Bilder\"
'Alle vorhandenen Bilder im aktiven Blatt löschen
'For Each shp In ActiveSheet.Shapes
'shp.Delete
'Next
'Alle Bilder im Blatt löschen
For Each shp In ActiveSheet.Shapes
If InStr(1, shp.Name, "Button") = 0 Then shp.Delete
Next
'Spalte A ab Zeile 2 durchlaufen
For Wiederholungen = 7 To ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
'Namen der Bilder stehen in Spalte A - ohne Endung; Einlesen in Variable mit Pfadangaben
strDatnam = Pfad & Cells(Wiederholungen, 5).Value & ".jpg"
'Prüfen, ob Bilddatei im Verzeichnis existiert
If Dir(strDatnam) <> "" Then
'falls ja: Bilder werden in Spalte B eingefügt, Größe 3 x 3 cm
ActiveSheet.Shapes.AddPicture strDatnam, msoFalse, msoTrue, Cells(Wiederholungen, 5).Left, Cells(Wiederholungen, 5).Top, 49, 49
End If
Next
End Sub