Problem with Slide.Export and file sizes.

[Per Salmi]

Hi!

I have a PPT file with about 70 slides the total file size is 15 MB.

Then I want to split this into separate PPT files one file for each slide.

The problem is that each file now takes 6MB of space.
I used a macro with the following code:

Dim s As Slide
For Each s In ActivePresentation.Slides
s.Export Left(ActivePresentation.Name, InStr(ActivePresentation.Name,
".") - 1) _
& "_" & String(3 - Len(CStr(s.SlideIndex)), "0") & CStr(s.SlideIndex) &
".ppt", "ppt"
Next

This is to be used on a computer with Office 2000 Pro.

I tried the same code in Office 2003 and then the splitted files are very
small, maybe 60 kb up to 1 Mb.

Any suggestions?

/Per Salmi

 

[Steve Rindsberg]

What's causing the file to be 6mb? Is there an image on one of the slide or
other masters that would be repeated on each exported slide? Have you
turned off fast saves and saved the original once to a new name?

--
Posted to news://msnews.microsoft.com
Steve Rindsberg, PPT MVP
PowerPoint FAQ - www.pptfaq.com
PPTools - www.pptools.com
===============================