Resize multiple PowerPoint objects in a table at the same time

macropod · #2 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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Resize multiple pictures in a Word 2010 table	JBA479	Word VBA	1	01-24-2014 08:51 PM
Select Multiple Objects in Powerpoint	Banker	PowerPoint	1	08-15-2012 11:49 PM
Word VBA: Resize Table Width???	tinfanide	Word VBA	5	04-21-2012 03:00 PM
Resize video across multiple slides	joelas	PowerPoint	3	09-28-2010 07:59 PM
Resize-to-fit Table Columns (PowerPoint)	icu222much	PowerPoint	0	06-06-2010 11:21 AM