[已解决]请教一个用VBA新建主菜单的问题。

office83

我先用“录制宏”新建了一个菜单，得到了这个：Application.CommandBars("Worksheet Menu Bar")
我BAIDU了一下，网上说这句与Application.CommandBars(1)是一样的。
常用工具栏有“Standard”，编号 3；
格式工具栏是“Formatting”， 编号 4。
－－－－
我想知道如果查询某个工具栏所对应的编号？
谢谢高人指点！

最佳答案

月排行榜 / 总排行榜

爱疯

2015-9-21 16:51

Sub test()
    Dim c, i
    Cells.Clear
    For Each c In CommandBars    '命令栏
        i = i + 1
        Cells(i, 1) = c.Index
        Cells(i, 2) = c.Name
        Cells(i, 3) = c.NameLocal
    Next c
End Sub

跳转到最佳答案楼层

爱疯

Sub test()
    Dim c, i
    Cells.Clear
    For Each c In CommandBars    '命令栏
        i = i + 1
        Cells(i, 1) = c.Index
        Cells(i, 2) = c.Name
        Cells(i, 3) = c.NameLocal
    Next c
End Sub

office83

爱疯 发表于 2015-9-21 16:51
Sub test()
    Dim c, i
    Cells.Clear

万分感谢！