- Increase transparency
- Onboard new hires faster
- Access from mobile/offline
Sub NewPresentation() Dim newdeck As Presentation file2open = contentlibraryfolder & ":Templates:HPC Template.potx" Set newdeck = Application.Presentations.Open(fileName:=file2open, Untitled:=msoTrue) 'HERE IS WHERE I AM ASSUMING THE NEWEST CREATED WINDOW (NEWDECK) SHOULD BE THE ACTIVEWINDOW, BUT NOT SO ActiveWindow.ViewType = ppViewNormal ActiveWindow.View.Zoom = 100 ActiveWindow.WindowState = ppWindowMaximized End Sub
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
11 Experts available now in Live!