How do I change the size of the pictures on 88 slides all at once?

[Guest]

I have copy an pasted screen shots from an application by using Print screen
and paste into Power point. Now I want to be able to mark all the 88 screens
at once and change the size. I know I did this once in 2003, but I cant for
the life of me find it now.

 

[Guest]

Maybe I'm wrong but I think this can only be done with vba code.

Sub picsize()
On Error GoTo ErrHandler
Dim osld As Slide
Dim oshp As Shape
For Each osld In ActivePresentation.Slides
For Each oshp In osld.Shapes
If oshp.Type = msoPicture Then
With oshp
..LockAspectRatio = msoTrue
..Top = 50
..Left = 60
..Width = 600
End With
End If
Next oshp
Next osld
Exit Sub
ErrHandler:
MsgBox "Error:"
End Sub

-- Change the values to suit
Amazing PPT Hints, Tips and Tutorials-http://www.PPTAlchemy.co.uk
http://www.technologytrish.co.uk/ppttipshome.html
email john AT technologytrish.co.uk

 

[Guest]

WOW - Thanks for the answer. It seems very technical. Where do I place the
code and can it be saved so I can use it on any PPTx I create?

 

[Guest]

Hanne

There are instructions on using vba code on our site here
http://www.pptalchemy.co.uk/vba.html

You could make the code into an addin which would then be available as a new
toolbar / menu. There are instructions on www.pptfaq.com. If its all too
daunting email me.