使用 Excel VBA 打开并签出演示文稿答案

【问题标题】：Open and CheckOut a presentation using Excel VBA使用 Excel VBA 打开并签出演示文稿
【发布时间】：2018-08-14 08:05:27
【问题描述】：

我使用 PowerPoint 宏打开并立即从 Intranet 服务器签出 PowerPoint 演示文稿：

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

我更愿意从 Excel 工作簿而不是单独的 PowerPoint 文件中执行操作。

【问题讨论】：

标签： excel vba sharepoint powerpoint

【解决方案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 可能是一个起点。

一定要尝试捕捉任何错误，因为我不确定这是否可行（未经测试）

【讨论】：

非常感谢！这很有帮助。
@TyRa97，它对你有用吗？此外，稍微编辑了答案以仅在.CanCheckOut = True 时显示 PPT。如果这回答了您的问题，请考虑将此答案标记为有帮助并已回答。
是的，它对我来说效果很好。但我有两个问题：有没有一本书或什么东西可以让我了解 VBA Excel 与其他办公应用程序的连接？同样的方法不适用于重新签入和关闭演示文稿。您对此有什么建议吗？
Here 是一个涵盖基础知识的链接。只需在网上搜索更深入的一个，比如this 一个。关于.CheckIn Filename:="link"... 这取决于文件打开时您想要什么、您希望代码做什么以及发生什么错误。现在，我将在包含重新签入的答案中添加一个链接。
抱歉我的回复晚了。非常感谢您提供的链接。改进 VBA 对我来说非常重要，谢谢 :)。关于 CheckIn，我基本上尝试使用与 CheckOut 相同的框架，但我收到消息：“对象不支持方法的此属性”。本质上，我想要一个宏来检查一个打开的活动演示文稿。提前谢谢你。