resize all slide images from PowerPoint

L

Liam

I usually print handouts in PowerPoint Notes View, with
some lines under the slide image for participants to take
notes. Someone wants me to convert this to a Word
document. (Who knows why...OK, it's the customer). I
found how to "File> Send To> Word" with lines under the
slide, but the slide images are much too small in Word.
Any idea how to either send bigger images, or to easily
resize all slide images in Word? I have ~ 2000 slides
total to do.
 
J

Jan Kronsell

Put this in a module and run the code:. Set the size to the size you want.

Sub Rezi()
For i = 1 To ActiveDocument.InlineShapes.Count

ActiveDocument.InlineShapes(i).Height = 400
ActiveDocument.InlineShapes(i).Width = 300

Next i
End Sub

Jan
 
Top