ateneva
3/18/2018 - 1:26 PM

Call PowerPoint via Excel VBA.bas

'open existing PowerPoint Application (Excel VBA)
'-------------------------------------------------------------------------------------------------
Dim PPApp As PowerPoint.Application
Dim PPpres As PowerPoint.Presentation

Set PPApp = New PowerPoint.Application 'creates a PP application and makes it visible
PPApp.Visible = True

'Open the presentation you wish to copy to
Set PPpres = PPApp.Presentations.Open("C:\Users\Angelina\Documents\Import-Export Balance.pptm")

'----------------------------------------------------------------------------------------------------
'call PowerPoint application that's already open (Excel VBA)

Dim PPApp As PowerPoint.Application
Set PPApp = GetObject(, "Powerpoint.Application") 'use if you are planning on having your ppt open

Dim PPpres As PowerPoint.Presentation
Set PPpres = PPApp.ActivePresentation