Replacing Picture/Shape

[Roderick_E]

Trying to replace a picture/shape in one spreadsheet with one in another.

'loop through all images
For Each s In wbk.Sheets(1).Shapes
[COLOR=#ff0000][B]s.picture = loadpicture(ThisWorkbook.Sheets(1).Shapes("Picture 1").Picture)[/B][/COLOR]
Next

It fails on the red line: Object doesn't support this property or method. I thought I could change all the pics this way. Ideas? Thanks

 

[pgc01]

Hi

From the help:

LOADPICTURE([filename] [,widthdesired] [,heightdesired] [,flags])

Loads a picture from a file into a Picture or Image control (IPictureDisp).

Loadpicture() expectos the pathname of a file.

If I understand correctly you are just trying to copy a picture already in the workbook.

Try:
- delete the first picture
- copy the new picture to where the first picture was

 

[Roderick_E]

Hi

From the help:



Loadpicture() expectos the pathname of a file.

If I understand correctly you are just trying to copy a picture already in the workbook.

Try:
- delete the first picture
- copy the new picture to where the first picture was

Thanks for the reply. I came to these same conclusions and have taken the method you describe.

 

[pgc01]

You're welcome. I'm glad it helped.