如何用VB调用PPT

[xuyuanhui00]

请问各位大侠如何用VB调用COMBO组合框内选定的PPT文档啊
我这里显示对象不支持该属性或方法。。
急～

[jhone99]

把你的代码贴出来，并指明出错的位置，这样大家才好帮你

[threenewbee]

ShellExecute combo.text, "open", "", SW_SHOW

[xuyuanhui00]

Dim i As String
Dim pptapp As Object
Private Sub Command1_Click()
i = Combo1.Text
Set pptapp = CreateObject("PowerPoint.Application")
pptapp.Visible = True
pptapp.Presentations.Open = "E:\毕业设计\考生文档\i.ppt"
Set pptapp = Nothing
Unload Me
End Sub

刚接触VB 一定有不少错误 希望大家帮忙

[赵4老师]

Dim pptapp As Object
Private Sub Command1_Click()
  Set pptapp = CreateObject("PowerPoint.Application")
  pptapp.Visible = True
  pptapp.Presentations.Open Combo1.Text
End Sub
Private Sub Form_Unload(Cancel As Integer)
  Set pptapp = Nothing
End Sub

[xuyuanhui00]

不行 powerpoint 不能打开对象。[Quote=引用 4 楼 zhao4zhong1 的回复:]

VB code

Dim pptapp As Object
Private Sub Command1_Click()
Set pptapp = CreateObject("PowerPoint.Application")
pptapp.Visible = True
pptapp.Presentations.Open Combo1.Text
End Sub
Private Sub F……
[/Quote]

[dbcontrols]

    Dim XlApp As PowerPoint.Application
    Set XlApp = CreateObject("PowerPoint.Application")
    aa = OpenPresentation(XlApp, Combo1.Text, "", False, False, True)

[xuyuanhui00]

显示子函数为定义？[Quote=引用 6 楼 dbcontrols 的回复:]
VB code
Dim XlApp As PowerPoint.Application
Set XlApp = CreateObject("PowerPoint.Application")
aa = OpenPresentation(XlApp, Combo1.Text, "", False, False, True)
[/Quote]