【转帖】vba 救助
 

vba 救助
www.dimcax.com
vba 救助
sub addasubmenu()
'获得当前的菜单组***********************
dim currmenugroup as acadmenugroup
set currmenugroup = thisdrawing.application.menugroups.item(0)

'创建新菜单
dim newmenu as acadpopupmenu
set newmenu = currmenugroup.menus.add("冲模")

'添加菜单项*****************************
dim macro as string
macro = chr(vbkeyescape) + chr(vbkeyescape)
'模座
dim menuitemhuamo as acadpopupmenuitem
set menuitemhuamo = newmenu.addmenuitem(newmenu.count + 1, & "模座", macro & "?????")
'在菜单栏上显示菜单*******************
newmenu.insertinmenubar (thisdrawing.application.menubar.count + 1)

end sub
??处该怎样编写,窗体代码又该怎样写,才能使菜单和对话框连接起来呢?
有劳了!!
我也有同样的问题，谁能帮忙解答
' 宏定义
sub pp()
form1.show
end sub
’？？？的写法
？？？="-vbarun pp"