Powerpoint sjabloon open vanuit MSWORD

[Kramer]

Hallo Iedereen,

Ik stel mijn vraag maar hier maar misschien had ik hem moeten vragen onder rubriek Powerpoint.

Ik weet dat je van uit Excel een powerpoint presenatie kan open. (die al gemaakt is).
Nu is mijn vraag kan dit ook vanuit WORD en dan gaat het ook nog hier op dat het sjabloon van onze powerpoint moet worden geopend.
Dus niet het sjabloon zelf maar een dochter document. (document zonder naam.)

 

[Kramer]

Hier de oplossing

Je kan een bestaande powerpoint open en je kan een lege powerpoint openen naar aanleiding van een powerpoint sjabloon (handig voor bedrijven).

Bestaande powerpoint openen:

Sub LaunchPPT()
    
    Dim ppt As Object
    Set ppt = CreateObject("PowerPoint.Application")
        
    ppt.Visible = True
    ppt.presentations.Open "map en naam van powerpoint presentatie"
       
    Set ppt = Nothing
End Sub

Een lege openen naar aanleiding van sjabloon

Sub LaunchPPT()
   
    Dim ppt As Object
    Set ppt = CreateObject("PowerPoint.Application")
        
    ppt.Visible = True
    ppt.presentations.Open FileName:="map en naam van powerpointsjabloon",  Untitled:=msoTrue
           
    Set ppt = Nothing
End Sub