Insert a picture from another worksheet

[sparky2205]

Hi folks,
I've inherited a spreadsheet that now requires changes.
The spreadsheet has a macro to update Pictograms based on a description that is populated earlier in the code.
Currently it is set up to populate the pictograms from a network location. I want to change this so that the pictograms are instead stored within the spreadsheet on a tab called "Pictograms".
Apologies for variable names in advance as the original spreadsheet is German.

What I currently have:

Set BILD = ActiveSheet.Pictures.Insert(ADRESSE + BEZEICHNUNG + ".png")

BILD is declared as a Picture
ADRESSE is a String to hold the network address
BEZEICHNUNG is a string to hold the picture name (i.e.pictogram name)

What I'm trying to achieve:

Set BILD = ActiveSheet.Pictures.Insert(Worksheets("Pictograms").shapes(BEZEICHNUNG)

This is in a loop which updates BEZEICHNUNG each time through the loop and inserts the appropriate picture.

This is producing a compile error: Expected: list separator or )

 

[GWteB]

I meant the "from scratch" part...

 

[GWteB]

I think the last minor flaws have been removed. In case you encounter some problems, let me know.

xlFile on WeTransfer

 

[sparky2205]

Everything looks fine now GWteB.
I have an independent tester looking at it as well but I gave it a thorough check myself today and all looks well.

I can't thank you enough for sticking with me on this.
I still have some homework to do to fully understand the code but I have a working spreadsheet and now I can do that homework when I'm not under pressure.

Thanks again.

 

[GWteB]

My pleasure
Glad it's sorted and thanks for letting me know.