Link to home
Start Free TrialLog in
Avatar of John Carney
John CarneyFlag for United States of America

asked on

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

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
Avatar of crystal (strive4peace) - Microsoft MVP, Access
crystal (strive4peace) - Microsoft MVP, Access

ActiveWindow.View.Zoom = 120
ASKER CERTIFIED SOLUTION
Avatar of Wayne Taylor (webtubbs)
Wayne Taylor (webtubbs)
Flag of Australia image

Link to home
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Start Free Trial
Avatar of John Carney

ASKER

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

John
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.