如何通过VBA在PowerPoint中仅当Animation Pane未打开时打开它

实现思路 #

要实现仅当Animation Pane处于未打开状态时执行打开操作，可通过PowerPoint对象模型中的CommandBars.GetVisibleMso方法判断Animation Pane的可见状态，该方法专门用于校验Office内置任务窗格的显示状态。

修改后的VBA代码 #

' 检查Animation Pane是否未显示
If Not Application.CommandBars.GetVisibleMso("AnimationPane") Then
    ' 执行打开Animation Pane的操作
    Application.CommandBars.FindControl(Id:=730, Type:=1).Execute
End If

代码说明 #

• Application.CommandBars.GetVisibleMso("AnimationPane")：返回布尔值，True代表Animation Pane已打开，False代表未打开。
• 通过Not取反判断，仅当窗格未打开时，执行原有的打开命令。

内容的提问来源于stack exchange，提问作者Danny Coleiro