[已解决]有关自定义菜单的问题

opelwang

这段代码，运行后，在帮助(H)菜单下会新建一个菜单，如图：


这想把这个菜单：测试(S)，放在：关于Microsoft Office Excel(A) 的下面。
该如何修改代码，敬请指点，谢谢~~
代码如下：
Private Sub Workbook_Open()
On Error Resume Next
    Dim Barr As CommandBarButton
    Application.CommandBars("Worksheet Menu Bar").Controls("帮助(H)").Controls("测试(S)").Delete
    Set Barr = Application.CommandBars("Worksheet Menu Bar").Controls("帮助(H)").Controls.Add _
                  (Type:=msoControlButton, Before:=10, temporary:=True)
    With Barr
   .Caption = "测试(S)"
   .OnAction = "Opentext"
    .FaceId = 35
    .BeginGroup = True
    End With
End Sub
直接修改：Before:=10 为 Before:=11，行不通。

最佳答案

月排行榜 / 总排行榜

hongliang224

2011-12-31 19:17

把before：=10去掉就可以了！

跳转到最佳答案楼层

hongliang224

把before：=10去掉就可以了！

hongliang224

不指定位置直接加到最末端！

opelwang

感谢指点，问题解决　。