这是我的子模样:
Sub InsertRowWithContent(rowNo As Long)
这是我的.onAction:
.OnAction = "'InsertRowWithContent""" & C & """'"
C是先前声明的Long变量。
它说找不到宏。在添加参数之前工作正常!
我已成功使用以下语法传递了参数:
.OnAction = "=InsertRowWithContent(" & C & ")"
注意事项:
编辑
我上面的答案以Access为背景。Djikay的答案可以在Excel中正常工作。但是,经过一番挖掘之后,我安静地确定,只是Word无法理解这些语法中的任何一种。Word VBA无法将参数传递给OnAction
语句中的子项。至少暂时最好接受这一点。
但是以下是Word(2010)的定义:
创建命令栏和按钮。对于OnAction
,仅传递的名称Sub
。但是使用按钮的Parameter
属性。
' Add bar
Set cdb = Application.CommandBars.Add("SomeTest", , False, False)
cdb.Visible = True
' Add button
Set cbb = cdb.Controls.Add
cbb.Caption = "PressMe"
cbb.OnAction = "TheCallback"
cbb.Parameter = 456
然后,通过CommandBars.ActionControl.Parameter
表达式访问参数:
Public Sub TheCallback()
MsgBox "The parameter passed is: " & CommandBars.ActionControl.Parameter
End Sub
ActionControl
与ActiveControl
Access中的内容非常相似(如果不相同):最后单击的控件。
资料来源:http : //www.experts-exchange.com/Programming/Languages/Visual_Basic/Q_24982922.html
* phuu * :-)
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句