Microsoft Office Forums

Go Back   Microsoft Office Forums > >

Reply
 
Thread Tools Display Modes
  #1  
Old 01-18-2012, 01:05 PM
excelledsoftware excelledsoftware is offline Save Current Slide as Picture Windows 7 64bit Save Current Slide as Picture Office 2003
IT Specialist
Save Current Slide as Picture
 
Join Date: Jan 2012
Location: Utah
Posts: 455
excelledsoftware will become famous soon enough
Default Save Current Slide as Picture

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.
Reply With Quote
  #2  
Old 01-18-2012, 01:18 PM
JohnWilson JohnWilson is offline Save Current Slide as Picture Windows 7 64bit Save Current Slide as Picture Office 2010 32bit
Programmer
 
Join Date: Nov 2008
Location: UK
Posts: 1,912
JohnWilson has a spectacular aura aboutJohnWilson has a spectacular aura about
Default

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"
__________________
Microsoft PowerPoint MVP 2007-2023
Free Advanced PowerPoint Tips and Tutorials
Reply With Quote
  #3  
Old 01-18-2012, 02:42 PM
excelledsoftware excelledsoftware is offline Save Current Slide as Picture Windows 7 64bit Save Current Slide as Picture Office 2003
IT Specialist
Save Current Slide as Picture
 
Join Date: Jan 2012
Location: Utah
Posts: 455
excelledsoftware will become famous soon enough
Default

Quote:
Originally Posted by JohnWilson View Post
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
Reply With Quote
Reply

Thread Tools
Display Modes


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
Save Current Slide as Picture 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
Save Current Slide as Picture Word Macro: Save file as text with current file name jabberwocky12 Word VBA 2 10-22-2010 12:23 PM
Save Current Slide as Picture Auto insert current month's name and current year Styler001 Word 4 01-25-2010 06:40 PM

Other Forums: Access Forums

All times are GMT -7. The time now is 05:28 PM.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2024, vBulletin Solutions Inc.
Search Engine Optimisation provided by DragonByte SEO (Lite) - vBulletin Mods & Addons Copyright © 2024 DragonByte Technologies Ltd.
MSOfficeForums.com is not affiliated with Microsoft