Center all images in a powerpoint slide deck

centerppt.vb

Public Sub AlignCenterMiddle()

Dim shp As PowerPoint.Shape

For Each Slide In PowerPoint.ActivePresentation.Slides

    For Each shp In Slide.Shapes
        With shp
            sngDefaultSlideWidth = PowerPoint.ActivePresentation.PageSetup.SlideWidth
            sngDefaultSlideHeight = PowerPoint.ActivePresentation.PageSetup.SlideHeight
            .Left = (sngDefaultSlideWidth - .Width) / 2
            .Top = (sngDefaultSlideHeight - .Height) / 2
            .ZOrder msoSendToBack
        End With
    Next shp

Next Slide
Debug.Print ("All done")


End Sub