How to extract a picture from an Excel worksheet into a picture fi

[Guest]

Tried to extract a picture from an Excel worksheet and save it as a *.jpg /
*.gif / *.bmp file - don't know how to do. Anyone knows how to do that? Same
goes for Word.

 

[Don Guillett]

try this.
Sub ExportChartJPG()
ActiveChart.Export Filename:="C:\a\MyChart.jpg", _
FilterName:="jpeg"
End Sub

 

[Guest]

Thanks for your advice. But honestly, I don't know what you mean...:-(

 

[Don Guillett]

This is an excel macro. copy/paste into a regular excel macro module>assign
to a button>change to suit the path desired>select the chart desired and
execute the macro

 

[Guest]

Hi Don. When I tried your macro I got the following error:
Run-Time error '91':
Object variable or With block variable not set.
I'm afraid I don't have clue what that means, being VBA illiterate.
Oh, by the way, thanks for all your help in the many other posts.

 

[Dave Peterson]

How about just selecting it, copying it, and pasting it into a different program
(Paint??) and saving from there?

If you're version of excel can save a file as "Web Page (*.htm;*.html)" (under
the "save as type" box on the File|SaveAs dialog), then when you save it, you'll
get a new folder with all the pictures under the folder with the file.

That new folder will be named like filename_Files.

If I recall correctly, this was added with xl2002.

 

[Dave Peterson]

My first post????

<vbg>

Since your first post did not specify whether you are exporting a chart
or a picture within excel:

<<snipped>>

 

[Dave Peterson]

No problem. I was just pulling your chain a bit!

Sorry Dave, not yours, I dont even pay much attention to the qoutes at
the bottom so I did not realize it would be construed that way. My
apologies, gotta get used to this forum design, it's a bit different
than others that I post on.

 

[Guest]

Hi Dave,
Thanks a lot for your advice. It worked well! Actually, it is soo simple
that I should have had this idea by myself. Guess, I couldn't see the forest
due to so many trees... Cheers!