如何调用自定义的宏

jiavia

大家好，本人刚刚接触这方面的知识，有个问题想请教一下

有下面的函数

Sub SetToolbarButton()
    Dim currMenuGroup As AcadMenuGroup
    Set currMenuGroup = ThisDrawing.Application.MenuGroups.Item(0)
   
    '建立一个新的工具栏
    Dim newToolbar As AcadToolbar
    Set newToolbar = currMenuGroup.Toolbars.Add("TestToolbar")
   
    '在新工具栏上增加一个按钮
    Dim newButton As AcadToolbarItem
    Dim openMacro As String
   
    '赋值这个宏的VB表达式为"ESC ESC _open "
    openMacro = Chr(3) + Chr(3) + Chr(95) + "open" + Chr(32)
   
    Set newButton = newToolbar.AddToolbarButton("", "NewButton", "Open a file.", openMacro)

End Sub

上面代码能正常运行。但是我想在这里

Set newButton = newToolbar.AddToolbarButton("", "NewButton", "Open a file.", openMacro)

中的openMacro赋予自己的宏表达式GetTrueCoordinate()，如下面：

Sub GetTrueCoordinate()

   MsgBox("Hello World!")

End Sub

请问怎么写呢。谢谢大家阿！！！！

azjmjsj

Set newButton =
newToolbar.AddToolbarButton(1, "新功能", "新功能", "-vbarun GetTrueCoordinate" & vbCr)

jsxygshh

正在找，终于找到了，谢谢AZJMJSJ