 <p>Using Steve's suggestion above as a jumping off point and then reading some tutorials I was able to come up with a working script:</p> <pre><code>Sub UniformHeight() Dim SlideToCheck As Slide Dim ShapeIndex As Integer For Each SlideToCheck In ActivePresentation.Slides For ShapeIndex = SlideToCheck.Shapes.Count To 1 Step -1 SlideToCheck.Shapes(ShapeIndex).Top = 36 Next Next End Sub </code></pre>