Question

伙计们，

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

Sub Open_n_CheckOut()


Presentations.CheckOut FileName:="Link"

Presentations.Open FileName:="Link"


End Sub

但是我更愿意执行完全相同的操作，但要使用Excel工作簿而不是单独的Powerpoint文件。

他们有可能意识到这一点吗？

谢谢大家！

尼克

Answer 1

会进行以下工作吗？

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可能是一个起点。

请务必尝试捕获任何错误，因为我不确定这是否可行（未经测试）

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

1 个答案: