无法从 Excel 打开 Powerpoint 演示文稿

Question

I have a file that works fine on my pc running Win XP, Excel 2003. PowerPoint resides in Office 11. Needed to go to another PC same Files but PowerPoint is in Office 10. The file I have "WORKED" fine on mine but will not open PPT presentations on all PC. So I need a different way to open them. I was using a Shell call to open and that was good. I found a snippet from Ron DeBruin which kind of works. It partially fails on the open though. Here is the code that is important. PowerPoint Does open as an application but the file itself does not open IN the Application. I get an Automation Error and in the same popup Unspecified Error . Is there a better way for Excel to find where PowerPoint resides and open it that way?

    Public Sub Start_Viewer(ProgFile)

      Dim objPPT As Object
      Dim PrgName As String

      Set objPPT = CreateObject("PowerPoint.Application")
      objPPT.Visible = True

      PrgName = Mid(ProgFile, InStrRev(ProgFile, "\") + 1, InStrRev(ProgFile, ".") - InStrRev(ProgFile, "\") - 1)

      objPPT.Presentations.Open FileName:="S:\Lab\EHS\SAFETY\" & PrgName & "\PPT\" & PrgName & ".ppt"
      Workbooks.Open FileName:="S:\Lab\EHS\SAFETY\" & PrgName & "\Quizzes\" & PrgName & " Quiz.xls"

    End Sub

objPPT.Presentations.Open is the part that fails. I added FileName aafter open as I saw it in another post someplace. It fails with or without that.

Original working code for MY PC only.

      Public Sub Start_Viewer(ProgFile)

      '  This works for PowerPoint in this location only and on my work PC
      '  It fails on other pcs at work when PowerPoint resides elsewhere.

      '  ProgFile is the path passed from the calling subroutine _
         and opens the PowwerPoint Presentation for that file
      RetVal = Shell("C:\Program Files\Microsoft Office\Office\PPTView.exe " & Chr(34) & ProgFile & Chr(34), 1)

      Watched = MsgBox("Have you finished the presentation?", vbYesNo, "Verify Presentation Watched")
        Select Case 6
                 ' PrgName is JUST the extracted FileName (no path no extension) to give me folder names
                 PrgName = Mid(ProgFile, InStrRev(ProgFile, "\") + 1, InStrRev(ProgFile, ".") - InStrRev(ProgFile, "\") - 1)
                 Workbooks.Open FileName:="S:\Lab\EHS\SAFETY\" & PrgName & "\Quizzes\" & PrgName & "Quiz.xls"
               Case 7
                 Exit Sub
        End Select
      End Sub

Answer 1

您可能需要检查EzPaste以自动执行从 Excel 粘贴到 PPT 的过程