Bilder Makro funkt. nicht wenn weiterverschickt
07.06.2018 14:57:14
Grigor
ich habe ein Bilder Makro (siehe unten) welches super auf meinem Laptop funktioniert. Einziges Problem: Wenn ich die Excel mit den Bildern, welche mithilfe vom Makro hinzugefügt wurden an andere weiterschicke, steht bei denen error und das Bild wird nicht angezeigt. Gibt es einen Weg um die Bilder fest in der Excel zu speichern/verankern, damit es andere weiterhin sehen können wenn sie es von mir zugeschickt bekommen?
Danke vorab für eure Hilfe.
Grigor
Sub InsertPics()
Dim Rw&, PFAD$, Datei$, Bild As Shape
PFAD = "U:\Test\"
With ActiveSheet
For Rw = 2 To 10
Datei = .Range("C" & 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