Hvordan åbner man en ny powerpoint præsentation fra excel?

Hej Eksperter.

Jeg skal kopiere en graf fra excel til en ny powerpoint applikation.
Jeg har allerede en makro der kan kopiere grafen til en åben powerpoint applikation, så jeg skal bare finde ud af hvordan jeg med VBA kan åbne en sådan. Så kan jeg sætte min eksisterende makro i halen på den.

Den eksisterende makro ser sådan ud:
---------------------------------------

Sub macro1()


' Set a VBE reference to Microsoft PowerPoint 8.0 Object Library for Office 97,
' or Microsoft PowerPoint 9.0 Object Library for Office 2000.
' NOTE: I have only tested this in Office 97.

Dim PPApp As PowerPoint.Application
Dim PPPres As PowerPoint.Presentation
Dim PPSlide As PowerPoint.Slide

' Make sure a chart is selected
If ActiveChart Is Nothing Then
    MsgBox "Please select a chart and try again.", vbExclamation, _
        "No Chart Selected"
Else
    ' Reference existing instance of PowerPoint 97
    Set PPApp = GetObject(, "Powerpoint.Application.8")
    ' Reference active presentation
    Set PPPres = PPApp.ActivePresentation
    PPApp.ActiveWindow.ViewType = ppViewSlide
    ' Reference active slide
    Set PPSlide = PPPres.Slides _
        (PPApp.ActiveWindow.Selection.SlideRange.SlideIndex)
   
    ' Copy chart as a picture
    ActiveChart.CopyPicture Appearance:=xlScreen, Size:=xlScreen, _
        Format:=xlPicture

    ' Paste chart
    PPSlide.Shapes.Paste.Select
   
    ' Align pasted chart
    PPApp.ActiveWindow.Selection.ShapeRange.Align msoAlignCenters, True
    PPApp.ActiveWindow.Selection.ShapeRange.Align msoAlignMiddles, True

    ' Clean up
    Set PPSlide = Nothing
    Set PPPres = Nothing
    Set PPApp = Nothing
End If

 
End Sub
-------------------------------

Håber I kan hjælpe.

Med venlig hilsen Lasse