vba - PowerPoint VBA - 在关闭时保留自定义 CommandBar 设置

Question

我为 2003 及更早版本开发了一个 PowerPoint 插件，它在安装时生成自定义命令栏/工具栏。

我在卸载时删除这个命令栏没有困难，但因为它使用了 Auto_Close事件这样做，它还会在每次 PowerPoint 关闭时删除工具栏，防止用户永久自定义命令栏的位置。

我已经通过检查加载项是否已注册或加载来尝试条件删除，但是 Auto_Close似乎在任何卸载或注销之前运行。

关于如何仅在卸载加载项时删除命令栏的任何想法？

Sub Auto_Close()
Dim pptAddin As AddIn

    For Each pptAddin In AddIns
        If pptAddin.Name = "AddInName" And _
            pptAddin.Registered <> msoTrue Then
            Application.CommandBars("CommandBarName").Delete
        End If
    Next

End Sub

Answer 1

做您正在做的事情是个好主意 - 在 PowerPoint 关闭时删除您的 CommandBar。这样，如果出现错误，您的加载项不会在 UI 中留下不起作用的工件。

不过，为了管理状态，许多人使用 GetSetting和 SaveSetting用于读取/写入 VB/VBA 程序注册表中的沙盒区域。在此 page 上查找以下函数:GetSetting , SaveSetting , GetAllSettings , DeleteSetting .您可以使用这些来管理 PowerPoint 实例之间的加载项 CommandBar。使用起来比较简单-here's a tutorial用于 Excel，同样适用于 PowerPoint。