Re: 4:3 -> Widescreen PPPresentation: VBA transfer help
- From: Steve Rindsberg <abuse@xxxxxxxxxxxxx>
- Date: Mon, 09 Apr 2007 08:49:07 EDT
In article <650F3E80-3E6F-4A73-80F8-050BBC181D60@xxxxxxxxxxxxx>, Arcy wrote:
I changed that bit of code around, and tried some of the other options as
well. While it works (down to 254 mbs with jpg!), the downside is that there
is a noticable drop in the image's quality.
That's the dark side of JPGs. Might want to see how it works with PNGs instead.
Is there a way to modify the code to make it - essentially - select all,
copy, and paste into the new PPP in the same way I would do it manually,
which doesn't alter the image quality (or carry-over the black bars on images
that don't extend to the page margins).
Probably so but it'll take a lot more coding to get it right. What makes it simple
(as is) is that you can treat all the shapes on the slide as a single grouped unit
for scaling purposes.
If you copy/paste individually or copy/paste the shapes on a slide, you run into
troubles 'cause PPT won't let you group placeholders. And if you can't scale/move
the shapes as a group, it gets trickier by far.
"Steve Rindsberg" wrote:
In article <F9EFDDF7-3BDE-4153-BC08-D49441D50022@xxxxxxxxxxxxx>, Arcy wrote:
I have a powerpoint presentation that is ~1k slides (each slide containing
one image), which comes out to around 175mb. This is not much of a problem,
it loads a little slow, but it fits on our thumbdrive, and it showcases the
work we want.
The problem is that 'It Has Been Decided' that we need a widescreen version
of this presentation. I, being the lowly student hire, have been tasked with
this.
I found one way of transfering the slides' contents from one 4:3
presentation to another widescreen formatted presentation thanks to a really
old post on these boards, which linked to here:
http://www.rdpslides.com/pptfaq/FAQ00566.htm . The VBA macro at the bottom of
that page worked like a charm...
....except that the new file size exploded to ~750 mbs. Doesn't like to load,
save, close, or do anything else really.
I did come across the PPTools optimizer, which shrunk it to ~500mb, but
that's still too large and runs slow. Looking at the VBA from that page, I
noticed that it's essentially taking a screencap of the old slides and
pasting that as an enhanced metafile (whatever that is). This means that the
new images have large bars the colour of our slide background (black)
wherever the image didn't take up the entire slide, making each image that
much bigger.
Is there a way to edit that VBA code to make it copy only the existing
images and transfer them over to the new file? (A solution I'm hoping will
shrink the file-size further - I tried doing this myself, but came up eith
some exciting errors.)
Assuming you're using 2003, locate this bit of code:
For Each oSourceSlide In oSourcePres.Slides
[snip snip snip]
oSourceSlide.Copy
Set oSh = oTargetSlide.Shapes.PasteSpecial(ppPasteEnhancedMetafile)(1)
Change ppPasteEnhancedMetafile to ppPastePNG or ppPasteJPG
Make no other changes, then run the code on your original presentation, not one
that's already been "processed".
The original code uses metafiles so that you can still ungroup and edit the text
and other content if need be, but metafiles don't compress images, which is why
your converted version gets so badly bloated.
Switching to PNG or JPG images will leave the results uneditable but will give
you much better image compression.
Give it a try, c'mon back, report on the results. Thanks!
-----------------------------------------
Steve Rindsberg, PPT MVP
PPT FAQ: www.pptfaq.com
PPTools: www.pptools.com
================================================
-----------------------------------------
Steve Rindsberg, PPT MVP
PPT FAQ: www.pptfaq.com
PPTools: www.pptools.com
================================================
.
- Follow-Ups:
- References:
- Re: 4:3 -> Widescreen PPPresentation: VBA transfer help
- From: Steve Rindsberg
- Re: 4:3 -> Widescreen PPPresentation: VBA transfer help
- From: Arcy
- Re: 4:3 -> Widescreen PPPresentation: VBA transfer help
- Prev by Date: Auto Run Macro in Last Slide?
- Next by Date: Re: Slideshow width/heigh mismatch with window width/height
- Previous by thread: Re: 4:3 -> Widescreen PPPresentation: VBA transfer help
- Next by thread: Re: 4:3 -> Widescreen PPPresentation: VBA transfer help
- Index(es):
Relevant Pages
|
|
