Microsoft Office Forums - View Single Post - How to align ALL pictures in ALL slides to the top?

buckeyestargazer · 06-23-2017, 04:50 AM

Quote:

Originally Posted by JohnWilson

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

Thanks for the reply. Could you explain more how to use vba code (macro?)? I tried something similar but I somehow didn't do it right and couldn't get the macro to run.