Macro to resize main text box on all slides in a presentation
Hi,
I need to export a large PDFs (roughly 1000 pages) into powerpoint, which I managed to do with foxit. Problem is the pages are A4 sized in the pdf, whereas powerpoint is set to 16:9 slides. The text ends up being centered on each slide. To fix this I have to drag the corners so that the text covers the entire width of the slide (leaving some margins).
After a lot of googling, I made the following macro:
Sub Resize2()
With ActiveWindowSelection.ShapeRange
.Height = 470
.Width = 900
.Left = 30
.Top = 40
End With
End Sub
This macro successfully resizes the text box to the dimensions I want. However, only the selected text box is resized, which means I'll have to repeat the process for every single slide.
Is there anyway I can modify the macro to take care of the whole presentation?
Thank you!
|