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

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