excel 2010 VBA InsertPicInRange only makes shortcut to image instead of copy of image

Hello guru's

I have a problem.

I am using a VBA script which worked fine when I used office 2003.
This script was created by my colleague how has left the building so to speak.
I myself have no experience with macro's / VBA scripts.

When we switched to Excel 2010 it seemed to run fine but with the difference that the images were no longer copied to the worksheet.
Only a shortcut is added to the cell(s).

When I e-mail the worksheet the receiver cannot see the images which where added.
I can see the images in the excel document but only when the t:\ drive is available.
If I disconnect this network drive then I have the same problem.

Below is the code:

Please Login or Register  to view this content.

Does anyone have an anwser to this problem?

try this

Please Login or Register  to view this content.

Hello Patel,

Thanks for your very quick reply.

But I think I was unclear in posting the complete script in the post.
The first portion is a test bit and not used anymore.

The problem lies in the second bit.
In the "Sub InsertPicInRange".
The "Sub TestInsertPicture" isn't used.

Sorry for the inconvenience.

Never the less I have tried your suggestion but it makes no difference.

Please Login or Register  to view this content.

don't use Pictures.Insert use shapes.Addpicture instead because that allows you to specify whether to link or not

Originally Posted by ArjanSpit

The problem lies in the second bit.
In the "Sub InsertPicInRange".
The "Sub TestInsertPicture" isn't used.

you have to run Sub TestInsertPicture(), not other sub, don't mix my code with your.