分配变量powerpoint.presentation

时间:2014-03-28 14:38:58

标签: variables vb6 powerpoint presentation

我有一点问题,我使用vb6通过代码修改powerpoint。当我从vb6打开它时,将它分配给一个全局变量,以便从一个不同的程序处理它。我的问题是如果在开始我的程序之前它已经打开,如何将powerpoint分配给变量。

我尝试使用此代码但不起作用

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

1 个答案:

答案 0 :(得分:0)

这是一个字符串,检查你的字符串。没有必要引用它。你的代码在这里工作。

如果文件未打开,则在没有该文件的情况下打开隐藏状态。当你的参考超出范围时,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