求高手，vba调用word菜单栏按钮需要onaction传入参数

suwandon

大家好~
我自己创建了一个菜单栏，但想点击菜单，会调用输入参数的函数，目前试了好多方法不成功。
请高手指点下~
谢谢~
'ctrl1.OnAction = "ShowForm1"

Sub createMenu()
Dim myMenuBar As CommandBar
Dim newMenu As CommandBarPopup
Dim ctrl1 As CommandBarButton
'初始化菜单
Set myMenuBar = Application.ActiveDocument.CommandBars.ActiveMenuBar
Set newMenu = myMenuBar.Controls.Add(Type:=msoControlPopup, _
Temporary:=True)
newMenu.Caption = "值班记事"
Set ctrl1 = newMenu.Controls.Add(Type:=msoControlButton, ID:=1)
ctrl1.Caption = "提取上班"
ctrl1.Style = msoButtonIconAndCaption
ctrl1.FaceId = 2109
ctrl1.OnAction = "ShowForm1"
ctrl1.Visible = True
End Sub

Sub ShowForm1(i_msg As String)
    MsgBox i_msg
End Sub

suwandon

求高手。。。。

suwandon

怎么发了这么久也没人理。。。。。

suwandon

难道真的江郎才尽？？？？？

sqhsqhli

Sub createMenu()
Dim myMenuBar As CommandBar
Dim newMenu As CommandBarPopup
Dim ctrl1 As CommandBarButton
'初始化菜单
Set myMenuBar = Application.ActiveDocument.CommandBars.ActiveMenuBar
Set newMenu = myMenuBar.Controls.Add(Type:=msoControlPopup, _
Temporary:=True)
newMenu.Caption = "值班记事"
Set ctrl1 = newMenu.Controls.Add(Type:=msoControlButton, ID:=1)
ctrl1.Caption = "提取上班"
ctrl1.Style = msoButtonIconAndCaption
ctrl1.FaceId = 2109
ctrl1.OnAction = "ShowForm1" '这个不能带参数吧
ctrl1.Visible = True
End Sub

Sub ShowForm1()
MsgBox xxx("我")
End Sub

Function xxx(i_msg As String)
xxx = i_msg  '这里写函数
End Function

dingboy_VBA

直接把参数写入onAction代码中就可以了.
sub Test(i as integer)
msgbox i &" is passed"
end sub

在动态生成菜单的代码中写
OnAction="Test(" & passedValue &")"