I have a PPT that has an object on certain slides called "Group3" that I would like to center and middle align for just those certain slides.
The slides are 17-22, 24-27 and 29 to 32
Can someone help me create a Sub Procedure for this?
I have a PPT that has an object on certain slides called "Group3" that I would like to center and middle align for just those certain slides.
The slides are 17-22, 24-27 and 29 to 32
Can someone help me create a Sub Procedure for this?
Try
Sub center_align() Dim osld As Slide For Each osld In ActivePresentation.Slides.Range(Array(17, 18, 19, 20, 21, 22, 24, 25, 26, 27, 29, 30, 31, 32)) With osld.Shapes.Range("Group 3") .Align (msoAlignMiddles), True .Align (msoAlignCenters), True End With Next osld End Sub
John Wilson
Microsoft PowerPoint MVP
Amazing Free PowerPoint Tutorials
http://www.pptalchemy.co.uk/powerpoi...tutorials.html