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.