Opening Animation Pane in PowerPoint with condition via VBA

Question

The following code opens Animation Pane in Power Point Application.

Application.CommandBars.FindControl(Id:=730, Type:=1).Execute

I want to open Animation Pane if Animation Pane is not already open.

Chronocidal · Accepted Answer · 2025-06-10 12:42:03Z

4

When the Animation Pane is visible, the "Animation Pane" button on the Ribbon/Command Bar displays as toggled-on. This maps to its State property, which is an MsoButtonState enum

Name	Value	Description
`msoButtonDown`	`-1`	Button is Down, or Toggled On
`msoButtonUp`	`0`	Button is Up, or Toggled Off
`msoButtonMixed`	`2`	Button is Down (alternate)

You can either check if the State is msoButtonUp / 0, or is not msoButtonDown / -1 before you Execute it:

If Application.CommandBars.FindControl(Id:=730, Type:=1).State=msoButtonUp Then Application.CommandBars.FindControl(Id:=730, Type:=1).Execute

' Or 

With Application.CommandBars.FindControl(Id:=730, Type:=1)
    If .State = msoButtonUp Then .Execute
End With

answered Jun 10 at 12:42

Chronocidal

8,3551 gold badge15 silver badges30 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

Opening Animation Pane in PowerPoint with condition via VBA

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related