Change size and placement of all photos in a photo album

[Guest]

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.

 

[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/

 

[Steve Rindsberg]

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.

What Echo said.

And here's a recipe for getting the job done with the StarterSet:

TIP: Make several images the same size
http://www.rdpslides.com/pptools/starterset/FAQ00034.htm

 

[Echo S]

TIP: Make several images the same size
http://www.rdpslides.com/pptools/starterset/FAQ00034.htm

Ah, great! Forgot that was there. Or maybe I didn't know it to forget it.
<g>

I'd insert all the images and then hammer my way through them. But that's
me. (It does seem to make for a faster work flow, though.)

 

[Guest]

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

 

[Steve Rindsberg]

Ah, great! Forgot that was there. Or maybe I didn't know it to forget it.
<g>

I'd insert all the images and then hammer my way through them. But that's
me. (It does seem to make for a faster work flow, though.)

De gustibus non est et alla that.

I'd sooner hammer 'em right after the insert while they're still selected.
Saves a click or two. But as long as I get my 50% cut of the price of the free
Starter Set, what care I? ;-)