Macro inserts photos but photos are lost when spreadsheet distributed

Hi there, I've got a Macro that prompts the user to select a photo and then choose the cell it gets inserted into. This part of the Macro runs fine. The issue I am having is that when the spreadsheet is opened on another computer the pictures do not load and instead a white box is in their place with an error message. I'm assuming this is because the macro is still trying to reference the file on the original computer rather than actually embedding the files into the spreadsheet. A clumsy solution I have found is to run another macro that copies and then "pastes as picture" but I'd rather avoid having to carry out this extra step. Hoping someone can guide me on how to modify the existing macro so that the photos are "embedded" (for lack of a better term).

Here is the Macro I have:

Please Login or Register  to view this content.

Thanks in advance!

Administrative Note:

Welcome to the forum.

We would very much like to help you with your query, however you need to include code tags around your code.

Please take a moment to add the tags. Posting code between [CODE]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/CODE] tags makes your code much easier to read and copy for testing, and it also maintains VBA formatting.

Please see Forum Rule #2 about code tags and adjust accordingly. Click on Edit to open your post, then highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

(Note: this change is not optional. As you are new here, I have done it for you this time.)

When you insert a picture using Pictures.Insert method, the inserted picture is linked to the source file.

Instead you should try the Shapes.AddPicture method to save the inserted picture with the file.

You may try something like this...

Please Login or Register  to view this content.