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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top