PowerPoint - Fixing the Aspect Ratio of all the Images in your Slides
Thursday, November 17, 2011 at 7:06PM
saveenr

Scott Hanselman posted about fixing images that have been distorted in PowerPoint when moving from a 4:3 to to 16:9 aspect ratio. But what if you have many distorted images in your deck. If you manually try to correct those aspect ratios according to the instructions at the link above, you’ll be in for a lot of work.

However, if you aren’t afraid of working with VBA macros then below is a little bit of code that may help. It will reset the aspect ratio for all images in your deck.

----

Sub SetScaleSizeForAllImages()
Dim s As slide
Dim sh As shape
Dim factor As Single
factor = 1.0
For Each s In ActivePresentation.Slides
    For Each sh In s.Shapes
        If sh.Type = msoPicture Then
            sh.ScaleHeight factor, msoTrue
            sh.ScaleWidth factor, msoTrue
        End If
    Next sh
Next s
End Sub

----

Article originally appeared on viziblr (http://viziblr.com/).
See website for complete article licensing information.