调用Powerpoint电子文档程序Dim MyApp As Object Set MyApp = CreateObject("PowerPoint.Application") If File1.Selected(i) = True Then '打开选中的PowerPoint文档 MyApp.Visible = True MyApp.Presentations.Open (Dir1.Path & "\" & File1.List(i)) End If(VB6.0源代码编写) 调用Powerpo