Shrink images all together

[agibsonsw]

Hello. Word 2003.
I've exported a PowerPoint presentation to Word (File, Send To Word). Is it possible to shrink all this miniature slides in one go?

When they are in Word they appear in a Table with 3 columns. Can I persuade it to start with only two columns (the 2nd and 3rd ones)?

Thank you.

[HansV]

You can't omit the third column from the export, but it's easy to delete it in Word.

Here is a macro that resizes the slides and deletes the third column:

Code: Select all

Sub FixSlides()
  Dim shp As InlineShape
  Application.ScreenUpdating = False
  ActiveDocument.Tables(1).Columns(3).Delete
  For Each shp In ActiveDocument.InlineShapes
    ' Resize to 25% of original slide
    shp.ScaleHeight = 25
    shp.ScaleWidth = 25
  Next shp
  Application.ScreenUpdating = True
End Sub

[agibsonsw]

Thank you.

Andy.