加载项文件幻灯片的内容 - VBA Powerpoint 2010答案

【问题标题】：Content of slides of add-in file - VBA Powerpoint 2010加载项文件幻灯片的内容 - VBA Powerpoint 2010
【发布时间】：2012-09-14 09:08:10
【问题描述】：

我想创建一个包含许多预先准备好的幻灯片的 PowerPoint 2010 插件。它将具有一组宏（+修改 UI），当按下按钮时，它们会将幻灯片的内容从加载项复制到活动演示文稿中。

有人知道如何从宏中访问加载项幻灯片的内容吗？

Microsoft 说 Presentations( "my_addin.ppam" ) 应该完成这项工作，请参阅 http://msdn.microsoft.com/en-us/library/office/ff743968%28v=office.15%29.aspx 对我来说，这似乎是最简单和首选的方式。但是，我收到错误消息“在演示集中找不到项目 my_addin”。

通过Addins( "my_addin" ) 的路线似乎也没有帮助。其他方式可能是在加载加载项时设置正确的变量...？

非常感谢任何帮助/指向正确方向的帮助。

【问题讨论】：

标签： vba add-in powerpoint

【解决方案1】：

1) 加载项文件中没有幻灯片。您无法访问不存在的内容。该插件可以插入来自另一个 PPT/PPTX 文件的幻灯片。

2）您引用的MSDN文章似乎是错误的。另一方面，您可以遍历 Addins 集合，而不是 Presentations 集合。

Sub ListAddins()
    Dim x As Long
    For x = 1 To AddIns.Count
        Debug.Print AddIns(x).FullName
    Next
End Sub

Sub TestGetAddin()
    Debug.Print GetAddin("showtimer").FullName
End Sub

Function GetAddin(sName As String) As AddIn
    Dim oAddin As AddIn
    For Each oAddin In AddIns
        If UCase(oAddin.Name) = UCase(sName) Then
            Set GetAddin = oAddin
            Exit Function
        End If
    Next
End Function

另一方面，这并不重要，因为插件 PPA/PPAM 中不会包含任何幻灯片。

但最后，知道加载项的位置（完整路径或路径属性会告诉您）将帮助您找到包含幻灯片的常规 PPT/PPTX 文件。

【讨论】：