microstation中,如何利用VBA在菜单栏目增加一些button和屏蔽一些button啊?

Question

如题,急请各位高手帮帮忙.分不够绝对可以再给!

Answer 1

增加
    Application.CommandBars.Add "InsertPrice", msoBarTop
    Application.CommandBars("InsertPrice").Visible = True
    Application.CommandBars("InsertPrice").Protection = msoBarNoMove + msoBarNoCustomize
    Set Control1 = Application.CommandBars("InsertPrice").Controls.Add(msoControlButton, 1)
    Control1.Caption = "数据导入"
    Control1.OnAction = "insertData"
    Control1.Visible = True

Answer 2

屏蔽
Application.CommandBars(1).Visible =False

Answer 3

可以么？好象早阵子的帖子说不行啊
在录制宏的对话框中Excel只能指定快捷键
Word既能快捷键还可以指定在ToolBar上放命令按钮
楼主可以试试