PowerPoint vba - 屏幕为空时自定义功能区/组不会刷新

Question

我有三个模板，为了使用这些模板，我正在使用自定义功能区选项卡制作一个加载项。我想要的是，如下： 当 PowerPoint 打开并加载加载项时，用户只能在自定义选项卡上看到三个按钮（= 三个模板），可用于启动新演示文稿。 当选择模板 A 来制作新演示文稿时，组 1 在自定义功能区选项卡上可见。当演示结束时，该组就消失了。这也适用于 2 和 3。它们永远不会同时可见。

我想我已经快到了，但是当没有打开的演示文稿（空 PPT 屏幕）并且我通过菜单启动一个新演示文稿（或打开一个演示文稿）时，功能区不会刷新。然后我的依赖模板的组不会出现在功能区中。

XML：

<customUI onLoad="RibbonOnLoad"  …>

<group id="MyCustomGroup1" label="Name" getVisible="GetVisible" tag="MyPersonalGroup1"
And there I've added some custom buttons. 

我也像这样制作了“MyPersonalGroup2”和“MypersonalGroup3”。

我现在拥有的VBA

Dim Rib As IRibbonUI
Dim MyTag As String

'Callback for customUI.onLoad
Sub RibbonOnLoad(ribbon As IRibbonUI)
    Set Rib = ribbon
End Sub

Sub getVisible(control As IRibbonControl, ByRef returnedVal)
Select Case control.Tag
    Case "MyPersonalGroup1"
        returnedVal = ActiveWindow.Selection.SlideRange.Design.Name = ("TemplateA")
    Case "MyPersonalGroup2"
        returnedVal = ActiveWindow.Selection.SlideRange.Design.Name = ("TemplateB")
    Case "MyPersonalGroup3"
        returnedVal = ActiveWindow.Selection.SlideRange.Design.Name = ("TemplateC")
End Select
End Sub

类模块ApplicationEventClass：

Public WithEvents PPTEvent As Application

Private Sub PPTEvent_WindowSelectionChange(ByVal Sel As Selection)
    MyTag = Tag
    If Rib Is Nothing Then
        MsgBox "Error, restart your presentation"
    Else
        Rib.Invalidate
    End If
End Sub

我为“PPTEvent_AfterNewPresentation”“PPTEvent_AfterPresentationOpen”“PPTEvent_PresentationOpen”重复了此代码 'PPTEvent_PresentationClose' 有必要吗？

这个模块与上面的代码一起使用：

Dim X As New ApplicationEventClass
Sub InitializePPTEvent()
Set X.PPTEvent = Application
End Sub

非常感谢您的帮助！

我也在 vbaexpress.com/forum/showthread.php?69782-PowerPoint-vba-Event-not-fired-when-screen-is-empty 和 https://learn.microsoft.com/en-us/answers/questions/796398/show-or-hide-custom-group-depending-on-powerpoint.html

Answer 1

您需要一个根据当前设计返回每个组的可见性的子程序：

Sub getVisible(control As IRibbonControl, ByRef returnedVal)
Select Case control.Tag
    Case "MyPersonalGroup1"
        returnedVal = ActiveWindow.Selection.SlideRange.Design.Name = ("TemplateA")
    Case "MyPersonalGroup2"
        returnedVal = ActiveWindow.Selection.SlideRange.Design.Name = ("TemplateB")
    Case "MyPersonalGroup3"
        returnedVal = ActiveWindow.Selection.SlideRange.Design.Name = ("TemplateC")
End Select
End Sub

并且您必须在 WindowSelectionChange-Event 中调用 RefreshRibbon。
您已经实现了应用程序类吗？此处描述： https://learn.microsoft.com/en-us/office/vba/powerpoint/how-to/use-events-with-the-application-object

Answer 2

丝带从诞生之日起就是静态的。唯一可能的活力是通过回调获得的。在功能区 XML 中，您可以定义 getVisible 回调，当您需要隐藏或显示控件时可以调用该回调。

例如，如果代码编写者为按钮实现了 getVisible 回调过程，则调用该函数一次，加载状态，然后如果需要更新状态，则使用缓存的状态而不是回顾程序。此过程将保持不变，直到加载项使用 Invalidate 方法发出信号表明缓存的值无效，此时将再次调用回调过程并缓存返回响应。然后，加载项可以通过调用 Refresh 方法强制立即更新 UI。

在以下示例中，启动主机应用程序会触发 onLoad 事件过程，该过程然后调用创建表示功能区 UI 的对象的过程。

<customUI … OnLoad="MyAddinInitialize" …>

接下来，定义一个回调过程，使 UI 上的所有控件无效，然后刷新 UI。

Dim MyRibbon As IRibbonUI 
 
Sub MyAddInInitialize(Ribbon As IRibbonUI) 
 Set MyRibbon = Ribbon 
End Sub 
 
Sub myFunction() 
 MyRibbon.Invalidate() ' Invalidates the caches of all of this add-in's controls 
End Sub

getVisible 回调具有以下签名：

C#: bool GetVisible(IRibbonControl control)

VBA: Sub GetVisible(control As IRibbonControl, ByRef visible)

C++: HRESULT GetVisible([in] IRibbonControl *pControl, [out, retval] VARIANT_BOOL *pvarfVisible)

Visual Basic: Function GetVisible(control As IRibbonControl) As Boolean

在以下系列文章中了解有关 Fluent UI（又名 Ribbon UI）的更多信息：

• 自定义2007 Office Fluent Ribbon for Developers（第 1 部分，共 3 部分）
• 为开发人员自定义 2007 Office Fluent 功能区（部分2 / 3)
• 为开发人员自定义 2007 Office Fluent 功能区（第 3 部分，共 3 部分）

如果您开发基于 VSTO您可能会找到 演练：使用功能区 XML 创建自定义选项卡文章很有帮助。