Koppeling naar bestandslocatie uitschakelen

[RMV]

Goedemiddag,

Ik gebruik onderstaande macro in Excel voor het invoegen van een afbeelding uit een vastgelegde map adhv het artikelnummer.
Echter bij het doorsturen van een dergelijk bestand via de mail, zijn de afbeeldingen voor de ontvanger niet meer zichtbaar.
De koppeling blijft blijkbaar intact en verwijst naar een locatie op mijn server.

Iemand een idee hoe ik zo'n bestand toch kan doorsturen en de afbeeldingen behouden blijven?


Afbeelding naam bepalen, bestandslocatie bepalen en afbeelding invoegen

'artikelnummer staat ingevoerd in kolom 2

picname = Cells(lThisRow, 2)

'bestandslocatie + artikelnummer + toevoeging .jpg

present = Dir("G:\Algemeen\Foto's Unit 4" & picname & ".jpg")

'Afbeelding invoegen vanuit bestandslocatie

If present <> "" Then
ActiveSheet.Pictures.Insert("G:\Algemeen\Foto's Unit 4" & picname & ".jpg").Select

 

[RogerS]

Dat komt omdat je feitelijk een link naar een plaatje in het document toevoegd, in plaats van het hele plaatje in het document op te slaan.

Je zou iets moeten gebruiken als .Shapes.AddPicture( Filename , LinkToFile , SaveWithDocument , Left , Top , Width , Height )


Hou er wel rekening mee dat je document nogal groot gaat worden door dit te doen. En dit kan weer andere problemen veroorzaken.