全部显示

OnAction 属性

返回或设置这样一个 Visual Basic 的过程名，该过程在用户单击或更改某命令栏控件的值时运行。String 类型，可读写。

注意   容器应用程序将确定该值是否是一个合法的宏名。

示例

本示例可实现的功能为：在命令栏“Custom”中添加一个命令栏控件，该控件被单击时将运行名叫“MySub”的过程。

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

本示例向命令栏“Custom”添加一个命令栏控件。COM 加载项“FinanceAddIn”将在每次单击该控件时运行。

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