Snasui Excel Forum

Code: Select all

'Other code
    'If PowerPoint is not already open then open PowerPoint
      If PowerPointApp Is Nothing Then Set PowerPointApp = CreateObject(class:="PowerPoint.Application")
      myDestination = "C:\Test2.pptx"
      Set myPresentation = PowerPointApp.Presentations.Open(myDestination)
    
    'Handle if the PowerPoint Application is not found
      If Err.Number = 429 Then
        MsgBox "PowerPoint could not be found, aborting."
        Exit Sub
      End If

  On Error GoTo 0

'Optimize Code
  Application.ScreenUpdating = False
  
'Create a New Presentation
'  Set myPresentation = PowerPointApp.Presentations.Add

'Add a slide to the Presentation
  Set mySlide = myPresentation.Slides(1) '.Add(1, 11) '11 = ppLayoutTitleOnly

'Other code