Tip for creating outstanding Powerpoint tutorials

0 replies
Struggling to resize and center screenshots and pictures in Powerpoint? Trying hard to create good looking step-by-step 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.

Code:
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
You can check out the tutorial on How To Resize And Center Pictures In Powerpoint 2007 over at slideshare.net.

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.
#creating #outstanding #powerpoint #tip #tutorials

Trending Topics