[求助]如何将自定义的菜单放置在最前面?

迎客松

通过下列代码,可以在菜单中添加一个"窗体界面"的菜单.目前添加的位置在最后,我希望添加到最前面.也就是在"文件"的前面,这样比较明显, 该再添加怎样的代码或再使用什么样的属性?
谢谢!

Public Sub AddMyMenu()
On Error Resume Next
  Application.CommandBars(1).Controls("窗体界面").Delete '删除原来定义的工具栏。

  
  Dim CCom As CommandBarButton

  Set CCom = Application.CommandBars(1).Controls.Add(msoControlButton)

        With CCom
          .Caption = "窗体界面"
          .TooltipText = "使用窗体界面"
          .Visible = True
          .Style = msoButtonIconAndCaption
          .OnAction = "显示外箱检验记录窗体"
          .FaceId = 71
        End With

 
End Sub

lfwxszw

Set filemenu = CommandBars(1).FindControl(ID:=30002)

Set CCom = Application.CommandBars(1).Controls.Add(Type:=msoControlButton, before:=filemenu.Index, temporary:=True)

[此贴子已经被作者于2008-10-18 21:29:38编辑过]

zey

收下了，心存敬仰。

q350179451

我的是excel2010 怎么不行呀，求完整代码

xgy0214dxy

2010在加载项里面，如果能做到03效果，在坛里找找XML的知识点