Office: (Office 2010) Bilder einfügen, nicht verknüpfen!

Hallo!
Das Thema "Bilder einfügen" ist ja genügend in allen möglichen Foren zu finden. Jedoch habe ich meine Lösung noch nicht gefunden.

Ich habe einen Code, der mir die Bilder automatisch platziert:
Option Explicit
Sub Bilder_einfügen()
Dim strPfad As String, lngWiederholungen As Long
Dim picBild As Picture
On Error Resume Next
strPfad = "C:\Users\Mawi\Desktop\Ordner\72dpi\"
For lngWiederholungen = 2 To Cells(Rows.Count, 1).End(xlUp).Row
Set picBild = ActiveSheet.Pictures.Insert(strPfad & Cells(lngWiederholungen, 1) & ".jpg")
With picBild
.Top = Cells(lngWiederholungen, 2).Top
.Left = Cells(lngWiederholungen, 2).Left
'optional Anfang: Größe anpassen
.Height = Cells(lngWiederholungen, 2).Height
.Width = Cells(lngWiederholungen, 2).Width
'optional Ende
End With
Next lngWiederholungen
Set picBild = Nothing
End Sub

Funktioniert super - alles perfekt!
Nur will ich nun, dass die Bilder direkt eingebaut sind - so, als ob man das mit "Einfügen -> Grafik" gemacht hätte. Derzeit ist es nämlich so, dass dies nix anderes als eine Verknüpfung ist - daher hat so ein Excel-Dokument auch nicht mehr als 400KB....
Ich kann also diese bebilderte Liste keinem schicken, weil die Bilder eben letztendlich nicht angezeigt werden.

Gibt es einen anderen Code für so ein Modul, oder gibt es eine Möglichkeit, dass diese Bilder irgendwie "umgewandelt" werden, sodass diese richtig eingebettet werden? (ich hoffe, ich habe mich da richtig ausgedrückt)....

Vielen Dank im voraus für die Hilfe!!!!

:)

 

Hi,

also mit dem Befehl .Pictures.Insert werden Bilder so eingefügt als ob du das über Einfügen -> Grafik machst und nicht als Verknüpfung - sieh dir dazu den per Markorekorder aufgezeichneten Code an:
Code: