View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Andy Tischaefer [MSFT] Andy Tischaefer [MSFT] is offline
external usenet poster
 
Posts: 4
Default Open Powerpoint Presentation via Excel VBA code

It looks as though the code you have below is trying to open a PPT file in
Excel. From what you've written, I don't think that's what you actually
want to do.

To open a PPT presentation by running code in Excel, you need to do four
things - add a reference to the powerpoint object model, boot powerpoint,
make powerpoint visible, and then open the file you want.

To add the reference:
Open VBE (Alt F11)
Tools / References
Scan down for "Microsoft Powerpoint <version Object Library"
Check the box
Click OK

Once you've added the reference, the following code should do what you want:

Private Sub Business_Plan_Change()
Dim PPT As PowerPoint.Application
Set PPT = New PowerPoint.Application
PPT.Visible = True
PPT.Presentations.Open Filename:="F:\Reports\" & Business_Plan.Value &
".ppt"
End Sub

Hope that helps.

- Andy Tischaefer
Test Lead, Microsoft Office

This posting is provided as is, and confers no rights.

"hurlbut777" wrote in message
...
I have an excel macro in which I would like to open a powerpoint
presentation
based upon a selection made in a drop-down box. The code I have so far is
below, I just don't know how to tell excel how to open the presentation.
Thanks.

Private Sub Business_Plan_Change()
Workbooks.Open Filename:="F:\Reports\" & Business_Plan.Value & ".ppt"
End Sub