叫出userform1

jacky789

如何在Thisdrawing中使用"addmenu"呼叫userform表单show？？

雪山飞狐_lzh

?不懂说明白点

jacky789

也就是说使用vbide->（插入）-->自订表单<＝＝

在vba中有模组也有表单还有一个thisdrawing.....

在Thisdrawing中使用：下式可呼叫模组中的程序

Set mel = newMenu.AddMenuItem(newMenu.Count + 1, "do(&O)"  & "-vbarun" + Chr(32) + "getit.cc" + Chr(32))

而要如何才能在Thisdrawing中使用上式或创建菜单指令呼叫自订表单(form)出来？？

中世纪骑士

你的意思是：创建自定义菜单，然后通过点击菜单弹出form窗体是么？要是这样，你可以写下面的代码

dim macro as string

macro="-vbarun show"

Dim menuItem**** As AcadPopupMenuItem
     Set menuItem**** = newMenu.AddMenuItem(newMenu.Count + 1, "****", Macro)

这里的****表示你的菜单项的名称，比如打开就可以写menuItemopen

然后再写一个宏

sub show

userform1.show

end sub

最后建议你多看看以前的帖子，也可以找到答案