I've found a picture style that I like.



Is there an easy way to apply it to all of the remaining pictures (I have one picture for each slide)?

I also want to maintain the exact size and shape of that style (and subsiquetly the pictures), so that all of my slides look the same (format wise).

Thanks,
Gary

I opened the ruler, and sized each frame around the photos to the same settings.
It took a few minutes, but looks pretty good (not exact).
I'm still interested in finding a way to make it precise.
Thanks

You could double click the format painter (Home Tab) and click eech picture but that wouldn't set the size.

This code should do it:

Select the "master" picture and run

Sub makePixSame()
Dim osource As Shape
Dim osld As Slide
Dim oshp As Shape
Set osource = ActiveWindow.Selection.ShapeRange(1)
osource.PickUp
For Each osld In ActivePresentation.Slides
For Each oshp In osld.Shapes
If oshp.Type = msoPicture Then
oshp.Apply
oshp.Width = osource.Width
End If
If oshp.Type = msoPlaceholder Then
If oshp.PlaceholderFormat.ContainedType = msoPicture Then
oshp.Apply
oshp.Width = osource.Width
End If
End If
Next
Next
End Sub

How to use code

__________________
Microsoft PowerPoint MVP 2007-2023
Free Advanced PowerPoint Tips and Tutorials

John,
It worked great,

Thanks,
Gary