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
—-
