Excel Über Macro Bilder ohne Link einbetten?
Hallo zusammen,
ich möchte für einen Kunden eine Produktübersicht mit Bildern erstellen. Die Bilder ziehe ich mir über folgenden Code:
Sub InsertPics()
Dim Rw&, PFAD$, Datei$, Bild As Shape
PFAD = "C:\test\"
With ActiveSheet
For Rw = 32 To 47
Datei = .Range("G" & Rw) & ".jpg"
If Dir(PFAD & Datei) <> vbNullString Then
.Pictures.Insert (PFAD & Datei)
Set Bild = .Shapes(.Shapes.Count)
Bild.LockAspectRatio = msoFalse
Bild.Left = .Range("A" & Rw).Left
Bild.Top = .Range("A" & Rw).Top
Bild.Width = .Range("A" & Rw).Width
Bild.Height = .Range("A" & Rw).Height
End If
Next
End With
End Sub
Welcher auf wunderbar funktioniert. Einziges Problem: Die Bilder werden nur verlinkt und nicht kopiert. Sobald ich die Datei versende, sind die Bilder nicht mehr sichtbar. Wie muss ich den Code verändern, um die Bilder gleich zu kopieren? Ist das möglich?
Danke für jede Antwort.
Computer,
Microsoft Excel,
Makro,
Link,
VBA Programmierung