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


You must be logged in to post a comment.