2009RavenR1
03-24-2011, 10:04 AM
Hopefully you guru's can help me on this one. I am making a macro in excel to export a image created by excel into powerpoint, and then have it save as a .png image.
I have the macro fully functional.. But the .png image. The image size I am getting is 720x540 and I was really hoping for a higher res image. This is what I have:
'Save as .png file
For Each sld In pwPnt.ActivePresentation.Slides
Call sld.Export(SavePathCell & "7-Day_Forecast-Extended-Outlook.png", "PNG")
Next
'Archive .png file
For Each sld In pwPnt.ActivePresentation.Slides
Call sld.Export(SavePathCell2 & SaveNameCell & " - " & Format(Now(), "yyyymmdd") & " - " & Format(Now(), ("hhmm - ")) & opinit & ".png", "PNG")
Next
Thanks so much for your help!!!
I have the macro fully functional.. But the .png image. The image size I am getting is 720x540 and I was really hoping for a higher res image. This is what I have:
'Save as .png file
For Each sld In pwPnt.ActivePresentation.Slides
Call sld.Export(SavePathCell & "7-Day_Forecast-Extended-Outlook.png", "PNG")
Next
'Archive .png file
For Each sld In pwPnt.ActivePresentation.Slides
Call sld.Export(SavePathCell2 & SaveNameCell & " - " & Format(Now(), "yyyymmdd") & " - " & Format(Now(), ("hhmm - ")) & opinit & ".png", "PNG")
Next
Thanks so much for your help!!!