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
|Excel 2013 Drop down help with data||3||58|
|Save Email Attachments using VBA Excel||3||61|
|Excel split data and output all combinations.||2||37|
|How to get AD RMS to work with Office 2016 for Mac||6||153|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
18 Experts available now in Live!