在用VBA开发时，如何在窗体上创建菜单栏呢？

tz_seafly

在用VBA开发时，如何在窗体上创建菜单栏呢？急需帮忙解决，谢谢！

中世纪骑士

创建菜单栏这个简单的问题我替高手给你回答：
Sub AddMenuItem()

    Dim currMenuGroup As AcadMenuGroup
    Set currMenuGroup = ThisDrawing.Application.MenuGroups.Item(0)
   
    创建新菜单
   
Dim newMenu As AcadPopupMenu
    Set newMenu = currMenuGroup.Menus.Add("新菜单")
添加菜单内容
Dim newMenuItem As AcadPopupMenuItem
    Dim macro As String
    macro = Chr(vbKeyEscape) + Chr(vbKeyEscape)     '相当于按下两次Esc键
Dim menuItemOpen As AcadPopupMenuItem
    Set menuItemOpen = newMenu.AddMenuItem(newMenu.Count + 1, "打开", macro & "_open ")
这里写了个“打开”文件的菜单，你要做别的，改改部分代码即

alin

I think he want to create menus in user forms.

aipzyz

中世纪骑士       可以和我联系吗?QQ:81234115