Office VBA教程:ActionControl属性

返回一个CommandBarControl对象,该对象的OnAction属性设置为当前正在运行的过程。如果当前正在运行的过程不是由命令栏控件初始化的,那么该属性返回 Nothing。只读。

VBA示例

本示例创建命令栏“Custom”,向命令栏中添加三个按钮,然后用 ActionControl属性和 Tag属性确定最后一次单击的是哪一个命令栏按钮。


Set myBar = CommandBars _
    .Add(Name:="Custom", Position:=msoBarTop, _
    Temporary:=True)
Set buttonOne = myBar.Controls.Add(Type:=msoControlButton)
With buttonOne
    .FaceId = 133
    .Tag = "RightArrow"
    .OnAction = "whichButton"
End With
Set buttonTwo = myBar.Controls.Add(Type:=msoControlButton)
With buttonTwo
    .FaceId = 134
    .Tag = "UpArrow"
    .OnAction = "whichButton"
End With
Set buttonThree = myBar.Controls.Add(Type:=msoControlButton)
With buttonThree
    .FaceId = 135
    .Tag = "DownArrow"
    .OnAction = "whichButton"
End With
myBar.Visible = True

whichButton 子程序响应 OnAction方法并确定最后单击的是哪一个命令栏按钮。


Sub whichButton()
Select Case CommandBars.ActionControl.Tag
    Case "RightArrow"
        MsgBox ("Right Arrow button clicked.")
    Case "UpArrow"
        MsgBox ("Up Arrow button clicked.")
    Case "DownArrow"
        MsgBox ("Down Arrow button clicked.")
End Select
End Sub

上页:Office VBA教程:New对象 下页:Office VBA教程:ActiveMenuBar属性

Office VBA教程:ActionControl属性

Office VBA教程:ActiveMenuBar属性 Office VBA教程:AdaptiveMenu属性
Office VBA教程:AdaptiveMenus属性 Office VBA教程:AllowMultiSelect属性
Office VBA教程:Animation属性 Office VBA教程:Application属性
Office VBA教程:AssistWithAlerts属性 Office VBA教程:AssistWithHelp属性
Office VBA教程:AssistWithWizards属性 Office VBA教程:AttachCertificate属性
Office VBA教程:BalloonError属性 Office VBA教程:BalloonType属性
Office VBA教程:BeginGroup属性 Office VBA教程:BuiltIn属性
Office VBA教程:BuiltInFace属性 Office VBA教程:Button属性
Office VBA教程:ButtonName属性 Office VBA教程:Callback属性
Office VBA教程:Caption属性 Office VBA教程:Checkboxes属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号