Hallo Zusammen,
ich habe ein Makro gebastelt, dass mir Fotos anhand von Zahlen in eine Excel vorlade lädt. Das funktioniert eig. auch einwandfrei, bis auf dem Punkt das ich die Bilder anschließend nur als Verknüpfung habe und nicht als Datei eingefügt. Dementsprechend fehlen diese, wenn ich die Tabelle versende.
Kann mir da vllt. jemand weiterhelfen, dass die Bilder als Dateien und nicht Verknüpfungen eingefügt werden?
Das Makro sieht wie folgt aus:
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
|