Transform BMP to JPG with Macro

[Guest]

Hi all,
Thanks in advance for any help you can provide. Im having the following
problem:

The design department of our company (which has super cool, big, fast...etc
computers) thinks that sending 4-8 Mb emails to us simple mortals is nothing
to worry about but they easilly clog mu inbox with lots of needed information
but on an uncalled for resolution, and usually in the form of a ppt file. So
sometimes I go through the files and manually cut each picture which is a BMP
and paste special it as a JPG and usually after i'm done it goes from the
former 4-8Mb to a more friendly <1 Mb file and looks exactly the same. So i
was trying to do a VBA macro to do this automatically and got as far as going
thru every object in a slide, cheking wether it is a picture or not and if so
recording the original position from left and top and cutting it, the problem
is: HOW DO I SPECIAL PASTE IT AS A JPG IN THE ORIGINAL POSITION.

Please any help is greatly appreciated...

Cheers,
Juan

 

[Guest]

This is "Top of head / Air code" but I think it will do it.

Sub paster()
Dim osld As Slide
Dim oshp As Shape
Dim opaste As Object
Dim sngLeft As Single
Dim sngTop As Single
For Each osld In ActivePresentation.Slides
For Each oshp In osld.Shapes
If oshp.Type = msoPicture Then
sngTop = oshp.Top
sngLeft = oshp.Left
oshp.Cut
Set opaste = osld.Shapes.PasteSpecial(ppPasteJPG)
opaste.Left = sngLeft
opaste.Top = sngTop
End If
Next oshp
Next osld
End Sub

 

[Guest]

My system doesn't recognizes PasteSpecial, is this a version issue? I'm using
Win 2K and PP 2K,

Cheers
Juan

 

[David M. Marcovitz]

Yes, PasteSpecial is not supported in VBA in PPT 2000. It was introduced
in 2002 or 2003.
--David

--
David M. Marcovitz
Microsoft PowerPoint MVP
Director of Graduate Programs in Educational Technology
Loyola College in Maryland
Author of _Powerful PowerPoint for Educators_
http://www.PowerfulPowerPoint.com/

 

[Guest]

Any other suggestion on how to solve my problem besides updating my * system?
is there an add-in or reference that would enable me to paste special or
change the format on all pictures in a presentation?

Thanks for all your responses...

 

[Steve Rindsberg]

Any other suggestion on how to solve my problem besides updating my * system?
is there an add-in or reference that would enable me to paste special or
change the format on all pictures in a presentation?

There are several add-ins designed to do exactly this (and usually more).

Our PPTools Optimizer is one (http://www.pptools.com/optimizer/)

There are several others on the market. Most should have demo versions that'll
let you try them out on your particular mix of presentations. I'd try several,
then get the one that works best for you.