Yeah, that's not working either.......

Here is some code I highjacked from DerbyDad03.

Sub PictureSizer()
For NumSlide = 1 To ActivePresentation.Slides.Count
ActivePresentation.Slides(NumSlide).Select
For Each Picture In ActiveWindow.Selection.SlideRange.Shapes
Picture.Select


Picture.LockAspectRatio = msoFalse
Picture.Height = 59.88 'Change this number to fit your needs
Picture.Width = 82.38 'Change this number to fit your needs
Next
Next
End Sub