resizing multiple pictures in a powerpoint presentation

  • Thread starter Thread starter Alison
  • Start date Start date
A

Alison

Is there a way to resize multiple pictures already in a powerpoint
presentation on multiple slides? I am using Powerpoint 2003.
 
If you are talking about the physical size, rather than the amount of disk
space, then the only way I know is to use a macro. If you just want to
adjust the disk space they are taking up, you can compress all the pictures
within PowerPoint (click on the picture, choose Picture from the Format
menu and click on compress, being sure to choose to compress all pictures).
--David
 
I am talking about the physical size. I don't know how to use a macro. Is
the process simple?
 
Unfortunately, the process is probably not going to be simple. I was
hoping someone else might chime in with some code already written for
you. As an alternative, you can click on a picture, set its size, click
on the next picture and hit ctrl-y (redo). Depending on how many
pictures you have, it shouldn't be too difficult. That is, of course,
assuming you want all the pictures resized to the same size.
--David
 
I'm much stronger with Excel macros than PP macros, but this seems to
work. That is, of course, assuming you want all the pictures resized
to the same size.

I'm sure this can be cleaned up so it doesn't actually Select each
slide and picture individually, but I don't have time to play with it
right now. Maybe later.

Sub PictureSizer()
For NumSlide = 1 To ActivePresentation.Slides.Count
ActivePresentation.Slides(NumSlide).Select
For Each Picture In ActiveWindow.Selection.SlideRange.Shapes
Picture.Select
Picture.LockAspectRatio = msoFalse
Picture.Height = 59.88 'Change this number to fit your needs
Picture.Width = 82.38 'Change this number to fit your needs
Next
Next
End Sub

I am talking about the physical size.  I don't know how to use a macro.  Is
the process simple?







- Show quoted text -
Click to expand...

I'm much stronger with Excel macros than PP macros, but this seems to
work. That is, of course, assuming you want all the pictures resized
to the same size.

I'm sure this can be cleaned up so it doesn't actually Select each
slide and picture individually, but I don't have time to play with it
right now. Maybe later.

Sub PictureSizer()
For NumSlide = 1 To ActivePresentation.Slides.Count
ActivePresentation.Slides(NumSlide).Select
For Each Picture In ActiveWindow.Selection.SlideRange.Shapes
Picture.Select
Picture.LockAspectRatio = msoFalse
Picture.Height = 59.88 'Change this numbers to fit your needs
Picture.Width = 82.38 'Change this numbers to fit your needs
Next
Next
End Sub
 
Back
Top