Saving as Image

spartacus · #1 11-11-2010, 09:51 AM

Hi guys,

I draw a rounded rectangle 1084 x 3450 in PowerPoint 07 and saved it as JPEG. However, I have seen that only half of the image has been saved on my computer. I compressed the image - even down to 96 dpi - but no way. How can I fix this?

Diabl0570 · #2 11-16-2010, 08:23 AM

this code worked great for me hope it helps you:

Code:

Sub ExportMe()
    Dim ExportPath As String   ' drive:\path to export to
    Dim Pixwidth As Integer    '  size in pixels of exported image
    Dim Pixheight As Integer
    Dim oSlide As Slide

    ' Edit to suit
    Pixwidth = 1024    '  arbitrarily ... set whatever value you like here

    ' Set height proportional to slide height
    Pixheight = (Pixwidth * ActivePresentation.PageSetup.Slideheight) / ActivePresentation.PageSetup.Slidewidth

    ExportPath = ActivePresentation.Path & "\"

    Set oSlide = ActiveWindow.View.Slide
    With oSlide
        .Export ExportPath & "Slide" & CStr(.SlideIndex) & ".JPG", "JPG", Pixwidth, Pixheight
    End With

End Sub

Greets, Diabl0

steverindsberg · #3 11-24-2010, 08:29 PM

Quote:

Originally Posted by spartacus

Hi guys,

I draw a rounded rectangle 1084 x 3450 in PowerPoint 07 and saved it as JPEG. However, I have seen that only half of the image has been saved on my computer. I compressed the image - even down to 96 dpi - but no way. How can I fix this?

Have you applied Service Pack 1 for Office 2007? If so, it includes a bug that messes up exported images. Service Pack 2 fixes the problem.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Line appearing over left and top of image when saving	rs14smith	Word	17	01-04-2012 11:02 AM
Saving Addresses	oriole6	Word	0	03-30-2010 02:16 PM
problem with a saving doc	grigdordik	Office	0	08-06-2009 07:09 AM
Saving Word files as PDF	catbags	Word	2	03-20-2009 12:42 PM
Saving Just one page....	derr04	Word	1	09-21-2007 10:46 AM