代码之家  ›  专栏  ›  技术社区  ›  TyRa97

使用Excel宏打开和签出演示文稿

  •  0
  • TyRa97  · 技术社区  · 6 年前

    嗨,伙计们,

    这个标题很能自我解释。我想编写一个Excel宏来打开并立即从Intranet服务器签出PowerPoint演示文稿。我找到了一种使用PowerPoint宏执行此操作的方法:

    Sub Open_n_CheckOut()
    
    
    Presentations.CheckOut FileName:="Link"
    
    Presentations.Open FileName:="Link"
    
    
    End Sub
    

    但我更愿意做完全相同的操作,但从Excel工作簿而不是单独的PowerPoint文件。

    他们有没有可能意识到这一点?

    提前谢谢大家!

    尼克

    1 回复  |  直到 6 年前
        1
  •  0
  •   JvdV    6 年前

    是否需要这样的工作:

    Sub Open_PPT()
    
    Dim PPT As Object
    Set PPT = CreateObject("PowerPoint.Application")
    
    With PPT.Presentations
        If .CanCheckOut("link") = True then
            .CheckOut Filename:="link"
            .Open Filename:="link"
            PPT.Visible = True
        Else
            PPT.Quit
            Msgbox "Can't checkout presentation at this moment!"
        End if
    End With
    
    End Sub
    

    你想退房吗? this 可能是一个起点。

    一定要抓住任何错误,因为我不确定这是否有效(未经测试)