Tip for creating outstanding Powerpoint tutorials
Here is a small script I published on slideshare.net a couple of years ago which will resize and center all the pictures in your Powerpoint presentation. Keep in mind that this method assumes you have one picture per slide.
Sub resize_center() Dim osld As Slide Dim oshp As Shape Dim x As Integer Dim y As Integer With ActivePresentation.PageSetup x = .SlideWidth/ 2 y = .SlideHeight/ 2 End With For Each osld In ActivePresentation.Slides For Each oshp In osld.Shapes If oshp.Type= msoPicture Then oshp.LockAspectRatio= msoTrue oshp.Height= y * 2 * 0.9 If oshp.Width> x * 2 * 0.9 Then oshp.Width= x * 2 * 0.9 End If oshp.Left= x -(oshp.Width/ 2) oshp.Top= y -(oshp.Height/ 2) End If Next Next End Sub
PS. The script I made is based on another similar script from some anonymous programmer who posted an almost as good solution on some hacker forum. I believe he was from Russia.