How to make web image on Excel worksheet permanent

  • Thread starter Thread starter ARG
  • Start date Start date
A

ARG

Using Excel 10 and Windows 7

Hello all,

I have a macro that uses the code
Worksheets("List").Pictures.Insert (URL)
to grab an image from the web and paste it into the selected cell. The image is then saved within the excel file. So far so good.

Whenever the excel file is opened again, however, Excel connects to the origin of the web image and reloads the image.

I want to make the image permanent, as if it had been pasted using copy&paste. I don't want Excel to reload every time I open the file.

I checked under picture properties and file properties, but could find anything. I checked under Data->Connections, but nothing is listed there.

Any ideas?

Regards
ARG
 
Using Excel 10 and Windows 7

Hello all,

I have a macro that uses the code
Worksheets("List").Pictures.Insert (URL)
to grab an image from the web and paste it into the selected cell. The image is then saved within the excel file. So far so good.

Whenever the excel file is opened again, however, Excel connects to the origin of the web image and reloads the image.

I want to make the image permanent, as if it had been pasted using copy&paste. I don't want Excel to reload every time I open the file.

I checked under picture properties and file properties, but could find anything. I checked under Data->Connections, but nothing is listed there.

Any ideas?
Click to expand...

I would be inclined to try (untested) something like

Worksheets(1).Shapes(1).Copy
Worksheets(1).Shapes(1).Delete
Worksheets(1).PasteSpecial

I think by default that removes any links to the data source.
Else use it with Link:=False to force dropping links.

You probably ought to check that Shapes(1).Name contains "Picture" too.
If it works OK then iterate over the shapes.
 
I would be inclined to try (untested) something like



Worksheets(1).Shapes(1).Copy

Worksheets(1).Shapes(1).Delete

Worksheets(1).PasteSpecial



I think by default that removes any links to the data source.

Else use it with Link:=False to force dropping links.



You probably ought to check that Shapes(1).Name contains "Picture" too.

If it works OK then iterate over the shapes.



--

Regards,

Martin Brown
Click to expand...

Hi Martin,

thanks, that worked. I only tried the copy/delete/pastespecial part, which pasted all images into the same selected cell, but now the reloading actions is gone which is good. I'll work on the repositioning :-)

Best regards
arg
 
Hi Martin,



thanks, that worked. I only tried the copy/delete/pastespecial part, which pasted all images into the same selected cell, but now the reloading actions is gone which is good. I'll work on the repositioning :-)



Best regards

arg
Click to expand...

Martin,

Inspired by your copy/delete/paste action, I just tried the manual version of this:

click on one picture to select it.
CTRL + A to select all pictures on worksheet
CTRL + C
DEL
Paste as Image.

1) Pictures pasted to their original position
2) No more reloading action at opening.

Perfect.

The DEL makes all the difference.

Thanks again.
ARG
 
Back
Top