image sizes

[Guest]

If I import various sizes of images, how can I resize all images to a smaller
size?

Also, once the images have been placed into powerpoint, is there a way for
me to click on each image to find out what size they are?

I've got a large powerpoint presentation and I need to reduce the size of
some of the images and I can't tell which images have been imported that have
excessive size.

Thanks, David

 

[Bill Dilworth]

Three options, as I see it.

1) Use the optimization feature of PowerPoint to reduce picture size
Select a picture and click Format | Picture | {tab}Picture |
{button}Compress
Also see:
**Why are my PowerPoint files so big? What can I do about it?
http://www.rdpslides.com/pptfaq/FAQ00062.htm

2) Use PPTools Optimization to compress the pictures.
http://www.rdpslides.com/pptools/FAQ00013.htm

3) Use this macro to (one at a time) find the approx. size of pictures
Be forewarned: this macro will change the presentation and should be run
on a non-vital copy of the presentation, not the original.

=========Code============
Public Sub SizeIt(oShp As Shape)

'figure correction factor
Dim Fudge As Double
With ActivePresentation.SlideShowWindow
'screen res. over show res.
Fudge = (1024 / .Width)
End With

'This restores the picture to original size
With oShp
.LockAspectRatio = msoFalse
'this section un-hides the cropped sections
With .PictureFormat
.CropBottom = 0
.CropLeft = 0
.CropRight = 0
.CropTop = 0
End With
'This section un-scales the pict
.ScaleHeight 1#, msoTrue
.ScaleWidth 1#, msoTrue
End With

'this should give you an estimate of the picture size
MsgBox "Size: " & oShp.Width * Fudge & _
" x " & oShp.Height * Fudge
End Sub
=========EndCode==========


--
Bill Dilworth, Microsoft PPT MVP
===============
Please spend a few minutes checking vestprog2@
out www.pptfaq.com This link will yahoo.
answer most of our questions, before com
you think to ask them.

Change org to com to defuse anti-spam,
ant-virus, anti-nuisance misdirection.
..
..