Makro fügt Bilder falsch ein
17.02.2020 19:52:10
Master
ich habe ein Makro gebastelt, dass mir Fotos anhand von Zahlen in eine Excel-Vorlage lädt. Das funktioniert eigentlich auch einwandfrei, bis auf dem Punkt das ich die Bilder anschließend nur als Verknüpfung und nicht als Datei eingefügt habe. Dementsprechend fehlen diese, wenn ich die Tabelle versende.
Ich habe schon mehrere Lösung für das Problem gefunden und diese ausprobiert, bekomme es jedoch nicht richtig ans laufen.
Kann mir da vllt. jemand weiterhelfen, dass die Bilder als Dateien und nicht Verknüpfungen eingefügt werden?
Das bisherige Makro sieht wie folgt aus:
Sub Einfügen_Fotos()
Dim Rw&, PFAD$, Datei$, Bild As Shape
Dim dlgOpen As FileDialog
Set dlgOpen = Application.FileDialog(FileDialogType:=msoFileDialogOpen)
With dlgOpen
.AllowMultiSelect = True
.Show
End With
With ActiveSheet
For Rw = 2 To 1000
Datei = .Range("H" & Rw) & ".jpg"
If Dir(PFAD & Datei) vbNullString Then
.Pictures.Insert (PFAD & Datei)
Set Bild = .Shapes(.Shapes.Count)
Bild.LockAspectRatio = msoFalse
Bild.Left = .Range("H" & Rw).Left
Bild.Top = .Range("H" & Rw).Top
Bild.Width = 220
Bild.Height = 150
End If
Next
End With
End Sub