OnAction Property Example

This example adds a command bar control to the command bar named "Custom". The procedure named "MySub" will run each time the control is clicked.

Set myBar = CommandBars("Custom")
Set myControl = myBar.Controls _
    .Add(Type:=msocontrolButton)
With myControl
    .FaceId = 2
    .OnAction = "MySub"
End With
myBar.Visible = True

This example adds a command bar control to the command bar named "Custom". The COM add in named "CallFinanceAddIn" will run each time the control is clicked.

Set myBar = CommandBars("Custom")
Set myControl = myBar.Controls _
    .Add(Type:=msocontrolButton)
With myControl
    .FaceId = 2
    .OnAction = "!<FinanceAddIn>"
End With
myBar.Visible = True