Excel VBA code to set the zoom in newly created PowerPoint Presentation.

John Carney
John Carney used Ask the Experts™
on
I need something that will set the zoom of each slide to 120. Here are the lines that create the presentation and then each slide as it is added in the overall loop:
Set myPresentation = PowerPointApp.Presentations.Add
Set mySlide = myPresentation.Slides.Add(myPresentation.Slides.Count + 1, ppLayoutBlank)

Open in new window


Thanks,
John
Comment
Watch Question

Do more with

Expert Office
EXPERT OFFICE® is a registered trademark of EXPERTS EXCHANGE®
crystal (strive4peace) - Microsoft MVP, AccessRemote Training and Programming
Top Expert 2015

Commented:
ActiveWindow.View.Zoom = 120
Hi John,

I'm pretty sure you can't zoom individual slides, but you can adjust the zoom of the document window instead...

    myPresentation.Windows(1).View.Zoom = 120

Wayne
John CarneyReliability Business Tools Analyst II

Author

Commented:
Hey Wayne, how are you? Haven't heard from you in a while. Thanks for the answer, works perfectly!

John
John CarneyReliability Business Tools Analyst II

Author

Commented:
Crystal, I had tried your answer earlier and thought for sure it would work but it didn't. Thank you for posting.

John
I'm well, John. And yourself?

I took a break from EE for a few years, but I pop back in from time to time now. Sadly it's nothing like it used to be, with all the old regulars rarely posting now.

Do more with

Expert Office
Submit tech questions to Ask the Experts™ at any time to receive solutions, advice, and new ideas from leading industry professionals.

Start 7-Day Free Trial