5

我正在开发 PowerPoint 加载项，并希望在加载项应用程序运行时暂时禁用某些功能区控件。

我开发了一个解决方案，在启用加载项时按预期工作，但这还不够，因为它禁用了一些常用的控件，如 SlideMaster、SlideSorter 等。

我正在使用 PowerPoint 2010。

这是一个格式良好的示例 XML：

<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui">
    <ribbon startFromScratch="false">
        <tabs>
            <tab idMso="TabView">
                <group idMso="GroupMasterViews" getVisible="GetVisible"/>
            </tab>
        </tabs>
    </ribbon>
</customUI>

这是一个示例回调，取自此 SO 答案：

Sub GetVisible(control As IRibbonControl, ByRef returnedVal As Boolean)
    If TrapFlag Then
        returnedVal = False ' control is hidden
    Else:
        returnedVal = True  ' control is not hidden
    End If
End Sub

当我导航到View功能区时，一条警报通知我：

由于您的安全设置，该宏无法找到或已被禁用。

大概这是指GetVisible宏？我的宏设置是：

  • 启用所有宏（不推荐）
  • 信任对 VBA 项目对象模型的访问

到目前为止，我一直在努力解决我发现的问题，但到目前为止无法实施建议。大多数答案都是针对 Excel 的。我还没有真正找到任何特定于 PowerPoint 的内容，但我认为将代码从一个应用程序移植到另一个应用程序应该不是非常困难，因为我已经在 VBA 中为许多其他事情做到了这一点。

我也尝试过这种方法，但是在 PowerPoint 的or级别SetCustomUI上不可用，也许它是唯一的或仅适用于 Visual Studio？ApplicationPresentation

4

1 回答 1

3

经过相当多的反复试验，我相信我有一个实用的解决方案，尽管有些事情我不确定，我将在下面描述。

我已经在一个 PPTM 文件中对此进行了测试，其中包含一个子程序来控制公共TrapFlag变量，该变量决定是否隐藏/禁用某些控件。我还在 PPAM 中对此进行了测试，该标志是在应用程序启动时设置的，而不是在加载插件时设置的。

这允许我在运行时操作 RibbonUI。

这是 XML：

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>`
   <customUI onLoad="RibbonOnLoad" xmlns="http://schemas.microsoft.com/office/2009/07/customui">
     <commands>
       <command idMso="ViewSlideSorterView" getEnabled="EnableControl"/>
       <command idMso="ViewNotesPageView" getEnabled="EnableControl"/>
       <command idMso="ViewSlideShowReadingView" getEnabled="EnableControl"/>
       <command idMso="ViewSlideMasterView" getEnabled="EnableControl"/>
       <command idMso="ViewHandoutMasterView" getEnabled="EnableControl"/>
       <command idMso="ViewNotesMasterView" getEnabled="EnableControl"/>
       <command idMso="WindowNew" getEnabled="EnableControl"/>
   </commands>
   <ribbon startFromScratch="false">
       <tabs>
           <tab idMso="TabView">
               <group idMso="GroupMasterViews" getVisible="VisibleGroup"/>
               <group idMso="GroupPresentationViews" getVisible="VisibleGroup"/>
           </tab>
       </tabs>
   </ribbon>

这是从 CustomUI Editor 应用程序生成的 VBA 回调，根据我的要求进行了修改。

Option Explicit
Public TrapFlag As Boolean
Public Rib As IRibbonUI
Public xmlID As String

Public Sub SetFlag()
Dim mbResult As Integer
    mbResult = MsgBox("Do you want to disable some controls on the Ribbon?", vbYesNo)
    If mbResult = vbYes Then
        TrapFlag = True
    Else:
        TrapFlag = False
    End If
End Sub

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

'I use this Callback for disabling some Controls:
'   ViewSlideSorterView
'   ViewNotesPageView
'   ViewSlideShowReadingView
'   ViewSlideMasterView
'   ViewHandoutMasterView
'   ViewNotesMasterView
'   WindowNew
Sub EnableControl(control As IRibbonControl, ByRef returnedVal)
    returnedVal = Not TrapFlag 'TrapFlag = True indicates the Application is running.
    'MsgBox ("GetEnabled for " & control.Id)
    'Debug.Print control.Id & " enabled = " & CStr(returnedVal)
    Call RefreshRibbon(control.Id)
End Sub

'I use this Callback for disabling/hiding some tab groups:
'   GroupMasterViews
'   GroupPresentationViews
Sub VisibleGroup(control As IRibbonControl, ByRef returnedVal)
    returnedVal = Not TrapFlag 'TrapFlag = True indicates the Application is running.
    'MsgBox "GetVisible for " & control.Id
    'Debug.Print control.Id & " enabled = " & CStr(returnedVal)
    Call RefreshRibbon(control.Id)
End Sub

Sub RefreshRibbon(Id As String)
    xmlID = Id
    'MsgBox "Refreshing ribbon for " & Id, vbInformation
    If Rib Is Nothing Then
        MsgBox "Error, Save/Restart your Presentation"
    Else
        Rib.Invalidate
    End If
End Sub

一些不确定性

  • 我仍然不完全确定某些 Ron deBruin 的代码做了什么（这里），或者是否有必要。我已经做了一些测试，但我不确定xmlID在这种情况下公共变量是否必要。他以某种我无法理解的方式使用了它。
  • 此外，我无法在选项卡group上使用与command在 XML 中使用相同的回调，因此我将标签getEnabled用于命令，但我必须对getVisible组使用。它们分别与回调函数EnableControl和 相关联VisibleGroup。无论如何，VisibleGroup似乎禁用了组，因此在功能上是相同的。
  • 我还相信该getEnabled标签会阻止对我禁用的那些命令的热键和编程访问。
于 2013-07-16T16:22:01.287 回答