View Single Post
 
Old 06-23-2017, 03:59 AM
JohnWilson JohnWilson is offline Windows 7 64bit Office 2010 32bit
Programmer
 
Join Date: Nov 2008
Location: UK
Posts: 1,913
JohnWilson has a spectacular aura aboutJohnWilson has a spectacular aura about
Default

Unfortunately it is not simple. The only way would be to use vba code

Assuming you added one image per slide this code might do it

Code:
Sub fix_album()

Dim osld As Slide
Dim opic As Shape
For Each osld In ActivePresentation.Slides
For Each opic In osld.Shapes
If opic.Type = msoPicture Then
opic.Top = 0
End If
Next
Next
End Sub
__________________
Microsoft PowerPoint MVP 2007-2023
Free Advanced PowerPoint Tips and Tutorials
Reply With Quote