Change size and placement of all photos in a photo album

A

Anneli

How can i change the size an placement of all photos in a photo album without
changeing each photo. I want the pictures all to be at the same place of the
slide and I want them to be smaller than they are when I set "1 picture on
each slide", the size should also be exactly the same on all slides.
 
E

Echo S

I'd go download the RnR Starter Set add-in. It includes a "place exactly"
tool that will do exactly what you want.

Set up one pix the way (size and position) you want it, then click on the
icon to pick up its settings. Then use the hammer to "hammer" the other pix
into place. One click's all it takes.

Starter Set is free. Here. http://www.rdpslides.com/pptools/
 
J

John Wilson

And here's a way without any hammers at all!

Resize one pic, select it and then run this macro

Sub picsize()
Dim postop As Integer
Dim posleft As Integer
Dim sizewidth As Integer
Dim sizeheight As Integer
Dim oSld As Slide
Dim oShp As Shape
postop = ActiveWindow.Selection.ShapeRange.Top
posleft = ActiveWindow.Selection.ShapeRange.Left
sizewidth = ActiveWindow.Selection.ShapeRange.Width
sizeheight = ActiveWindow.Selection.ShapeRange.Height
For Each oSld In ActivePresentation.Slides
For Each oShp In oSld.Shapes
If oShp.Fill.Type = msoFillPicture Then
With oShp
..Width = sizewidth
..Height = sizeheight
..Top = postop
..Left = posleft
End With
End If
Next oShp
Next oSld
End Sub
--

Did that answer the question / help?
_____________________________
John Wilson
Microsoft Certified Office Specialist
http://www.technologytrish.co.uk/ppttipshome.html
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top