How to align ALL pictures in ALL slides to the top?

JohnWilson · #1 06-23-2017, 03:59 AM

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

buckeyestargazer · #2 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.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How can I make VBA to "crop to fit" all pictures to picture placeholders across all slides at once?	jamesupshaw	PowerPoint	3	04-28-2017 09:35 AM
Pulling Specific Slides from a Deck to create new slides	ColinW	PowerPoint	2	07-17-2015 11:30 AM
Difference between Slides.addSlide and Slides.Add?	tinfanide	PowerPoint	3	12-29-2012 11:55 PM
Inserting slides between existing slides in 2003	watsonstudios	PowerPoint	1	05-20-2011 08:15 PM
Can I select different pictures on different slides at the same time or	Frogggg	PowerPoint	0	08-29-2010 08:43 PM