Office: (Office 365) Bilder anstatt Link einfügen

Guten Morgen,

ich habe folgenden Befehl in VBA, der eigentlich sehr gut funktioniert. Allerdings fügt es Bilder als Link ein und sobald ich die Datei per eMail verschicke, werden die Bilder nicht mehr angezeigt.
Jetzt habe ich gelesen, dass ich Pictures.Insert durch AddPicture ersetzten muss. Leider klappt es nicht.
Ich hoffe ihr könnt mir da weiterhelfen, danke.


Sub BilderEinfügene()

Dim xFDObject As FileDialog
Dim xStrPath, xStrPicPath As String
Dim xRgName, xRgInser, xRg, xRgI As Range
Dim xFNum As Integer
Set xFDObject = Application.FileDialog(msoFileDialogFolderPicker)
With xFDObject
.Title = "Please select the folder:"
.InitialFileName = "C:\Users\xxxx"
.Show
.AllowMultiSelect = False
End With
On Error Resume Next
xStrPath = ""
xStrPath = xFDObject.SelectedItems.Item(1)
If xStrPath = "" Then
Exit Sub
End If
Set xRgName = Application.InputBox("Please select the cells contain the image name:", "Kutools for Excel", , , , , , 8)
If xRgName Is Nothing Then
MsgBox "No cells are select, exit operation! ", vbInformation, "Kutools for Excel"
Exit Sub
End If
Set xRgInser = Application.InputBox("Please select the cells to output the images", "Kutools for Excel", , , , , , 8)
If xRgInser Is Nothing Then
MsgBox " No cells are select, exit operation.! ", vbInformation, "Kutools for Excel"
Exit Sub
End If
For xFNum = 1 To xRgName.Count
Set xRg = xRgName.Item(xFNum)
Set xRgI = xRgInser.Item(xFNum)
xStrPicPath = xStrPath & "\" & xRg.Text & ".png"
If Not Dir(xStrPicPath, vbDirectory) = vbNullString Then
With xRgI.Parent.Pictures.Insert(xStrPicPath)
.Placement = xlMoveAndSize
.ShapeRange.LockAspectRatio = msoTrue
.ShapeRange.Height = 60
If .Width > xRgI.Width Then .Width = xRgI.Width * 2 / 3
If .Height > xRgI.Height Then .Height = xRgI.Height * 2 / 3
.Top = xRgI.Top + (xRgI.Height - .Height) / 2
.Left = xRgI.Left + (xRgI.Width - .Width) / 2

End With
End If
Next
End Sub