[VBA求助]请高手帮忙响应我的工具条
各位高手：我有一段创建条的程序，也有段VBA运行对话框的程序，我想把弹出对话框的功能在工具条里实现请高手指点，不甚感激！！！！
Sub InsertMenuItem()
'定义变量
Dim CurrMenuGroup As AcadMenuGroup
Dim MenuItem As AcadPopupMenuItem
Dim MacroStr As String
Dim NewMenu As AcadPopupMenu
'设置下拉菜单群组
Set CurrMenuGroup = ThisDrawing.Application.MenuGroups.Item(0)
'创建新F拉菜单列
Set NewMenu = CurrMenuGroup.Menus.Add("我的菜单项")
'指定宏字符串"E5C Esc-DPEN"的vB对应值
MacroStr = Chr(3) + Chr(3) + Chr(95) + "open" + Chr(32)
Set MenuItem = NewMenu.AddMenuItem(NewMenu.Count + 1, "打开", MacroStr)
CurrMenuGroup.Menus.InsertMenuInMenuBar "打开", 0
End Sub
Sub NewMenuItem()
'定义变量
Dim NewMenuGroup As AcadMenuGroup
Dim NewMenu As AcadPopupMenu
Dim NewMenuItem As AcadPopupMenuItem
Dim MacroStr As String
Set CurrMenuGroup = ThisDrawing.Application.MenuGroups.Item(0)
Set NewMenu = CurrMenuGroup.Menus.Add("我的菜单项")
MacroStr = Chr(3) + Chr(3) + Chr(95) + "open" + Chr(3)
Set MenuItem = NewMenu.AddMenuItem(NewMenu.Count + 1, "打开", MacroStr)
NewMenu.InsertInMenuBar (ThisDrawing.Application.MenuBar.Count + 1)
End Sub
如何和下面代码集成起来
请问谁下载了这个帖子以前上传的一个文件，请告之我，哪个上有个问题要调试，请留下你的QQ我将把完善的发给你
我的QQ是332587251
我刚才的QQ留错了是332387251请大家注意
页:
[1]