Opening Powerpoint from Excel

[Guest]

Hello

What is the code to open a powerpoint presentation from Excel. Also what references do i need

Thanks in advance
James

 

[Jean-Yves]

Hi James

Dim pptApp As Object
Dim pptpres As Presentation
Set pptApp = CreateObject("PowerPoint.Application")
With pptApp
.Visible = True
.WindowState = ppWindowMaximized
End With
ChDrive (ThisWorkbook.Path)
ChDir (ThisWorkbook.Path & "\")
pptApp.Presentations.Open FileName:=ThisWorkbook.Path &
"\YourPresentation.ppt",

 

[Bob Phillips]

Hi James,

With this code, you don't need any references

Dim ppApp As Object
Set ppApp = CreateObject("Powerpoint.Application")
ppApp.Visible = True

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)