Microsoft Office Forums - View Single Post - [Solved] Resize multiple PowerPoint objects in a table at the same time

macropod · 11-04-2014, 06:27 PM

You could resize the slides using a macro like:

Code:

Sub Demo()
Dim sngWdth As Single, sngScale As Single, iShp As InlineShape
With ActiveDocument.Tables(1)
  sngWdth = .Columns(1).Width
  For Each iShp In .Range.InlineShapes
    With iShp
      .LockAspectRatio = True
      sngScale = sngWdth / .Width
      .Width = sngWdth
      .Height = .Height * sngScale
    End With
  Next
  .LeftPadding = 0
  .RightPadding = 0
End With
End Sub