赋值变量powerpoint.presentation

Question

我有一个小问题，我使用vb6通过代码来修改一个幻灯片。当我从vb6打开它时，将它赋值给一个全局变量，以便通过不同的过程来处理它。我的问题是，如果powerpoint在启动我的程序之前已经打开，如何将它赋给一个变量。

我尝试了这段代码，但不起作用

dim ppt as powerpoint.presentation
Set ppt = GetObject(pptfile) ' pptfile is powerpoint path and filename that is opened

Answer 1

这是一个字符串，请检查您的字符串。没有必要引用它。您的代码可以在这里运行。

如果文件未打开，excel将在打开时隐藏该文件。当引用超出范围时，excel将关闭。

Private Sub Form_Load()
    Dim ppt As Excel.Workbook
    pptfile = "C:\Users\user\Documents\Super.xls"
    Set ppt = GetObject(pptfile)
    MsgBox ppt.application & " " & Err.Number & " " & Err.Description
    MsgBox ppt.FullNameURLEncoded
End Sub