Save Current Slide as Picture

excelledsoftware · #1 01-18-2012, 01:05 PM

Hello Everyone,

I am using Power Point 2003. (dont like 2010) and I am trying to write a macro to save the current slide as a jpeg. When I record the macro it always saves all the slides in a folder but I just want the current slide saved. Additionally I need the original file name of the picture to be overridden each time as well. I have figured this out using sendkeys but I would like a better approach. Lastly this macro I want to add into a current macro. How would I do that? with the "with" statement I know it cant say "end sub" until the entire macro is written. Thanks for your help.

JohnWilson · #2 01-18-2012, 01:18 PM

See if this works

Code:

'at the top of your code after  the line sub Whatever()
Dim osld As Slide

'at the correct part of your code (change the save path of course)
Set osld = ActiveWindow.View.Slide
osld.Export "C:\Users\John\Desktop\slidePic.jpg", FilterName:="JPG"

excelledsoftware · #3 01-18-2012, 02:42 PM

Quote:

Originally Posted by JohnWilson

See if this works

Code:

'at the top of your code after  the line sub Whatever()
Dim osld As Slide
 
'at the correct part of your code (change the save path of course)
Set osld = ActiveWindow.View.Slide
osld.Export "C:\Users\John\Desktop\slidePic.jpg", FilterName:="JPG"

That Sir, Worked perfectly. Thanks so very very much

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How to save the current page in a new file with all the page settings (header, footer	Jamal NUMAN	Word	6	03-15-2012 03:27 PM
How to call current PC date and/or current PC year	KIM SOLIS	Excel	2	11-04-2011 06:09 PM
when save as picture, links not working	lexie	PowerPoint	0	08-23-2011 08:46 PM
Word Macro: Save file as text with current file name	jabberwocky12	Word VBA	2	10-22-2010 12:23 PM
Auto insert current month's name and current year	Styler001	Word	4	01-25-2010 06:40 PM