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®
View Solution Only
crystal (strive4peace) - Microsoft MVP, AccessRemote Training and Programming
Top Expert 2015

Commented:
ActiveWindow.View.Zoom = 120
Commented:
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
Wayne Taylor (webtubbs)

Commented:
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