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)

Select all Open in new window

Thanks,
John