Office VBA教程:OnAction属性

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

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

VBA示例

本示例可实现的功能为:在命令栏“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

上页:Office VBA教程:On属性 下页:Office VBA教程:Parameter属性

Office VBA教程:OnAction属性

Office VBA教程:Parameter属性 Office VBA教程:Parent属性
Office VBA教程:Path属性 Office VBA教程:Picture属性
Office VBA教程:Position属性 Office VBA教程:Priority属性
Office VBA教程:Private属性 Office VBA教程:ProgId属性
Office VBA教程:PropertyTests属性 Office VBA教程:ProportionalFont属性
Office VBA教程:ProportionalFontSize属性 Office VBA教程:Protection属性
Office VBA教程:Reduced属性 Office VBA教程:RowCount属性
Office VBA教程:RowIndex属性 Office VBA教程:ScopeFolder属性
Office VBA教程:ScopeFolders属性 Office VBA教程:ScriptText属性
Office VBA教程:SearchFolders属性 Office VBA教程:SearchScopes属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号