Avatar of John Carney
John Carney
Flag 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
Microsoft ExcelVBA

Avatar of undefined
Last Comment
Wayne Taylor (webtubbs)

8/22/2022 - Mon
crystal (strive4peace) - Microsoft MVP, Access

ActiveWindow.View.Zoom = 120
ASKER CERTIFIED SOLUTION
Wayne Taylor (webtubbs)

THIS SOLUTION ONLY AVAILABLE TO MEMBERS.
View this solution by signing up for a free trial.
Members can start a 7-Day free trial and enjoy unlimited access to the platform.
See Pricing Options
Start Free Trial
GET A PERSONALIZED SOLUTION
Ask your own question & get feedback from real experts
Find out why thousands trust the EE community with their toughest problems.
John Carney

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

John
John Carney

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

John
All of life is about relationships, and EE has made a viirtual community a real community. It lifts everyone's boat
William Peck
Wayne Taylor (webtubbs)

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.