View Single Post
 
Old 04-18-2013, 09:33 AM
JohnWilson JohnWilson is offline Windows 7 64bit Office 2010 32bit
Programmer
 
Join Date: Nov 2008
Location: UK
Posts: 1,914
JohnWilson has a spectacular aura aboutJohnWilson has a spectacular aura about
Default

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
Reply With Quote