[已解决]如何获取2003版Excel所有菜单的ID

nothingwmm

如何获取所有2003版菜单的ID ,如 新建 的ID=2520

相关连接：http://www.excelpx.com/thread-156508-1-1.html

最佳答案

月排行榜 / 总排行榜

tkgg93

2011-1-22 22:36

  Sub MenuList()
       On Error Resume Next
       Dim Nx As CommandBar
       Dim I As Integer
       For Each Nx In Application.CommandBars
           I = I + 1
           Range("A" & I).Value = Nx.Name
           Range("C" & I).Value = Nx.NameLocal
           For Each X In Application.CommandBars(Nx.Name).Controls
               I = I + 1
               Range("B" & I).Value = X.ID
               Range("C" & I).Value = X.Caption
               Range("D" & I).Value = X.FaceId
           Next
       Next
   End Sub

跳转到最佳答案楼层

xiaoni

不知道，来学习

xdwy81129

知道了id，可以怎么用呢？？希望知晓

tkgg93

  Sub MenuList()
       On Error Resume Next
       Dim Nx As CommandBar
       Dim I As Integer
       For Each Nx In Application.CommandBars
           I = I + 1
           Range("A" & I).Value = Nx.Name
           Range("C" & I).Value = Nx.NameLocal
           For Each X In Application.CommandBars(Nx.Name).Controls
               I = I + 1
               Range("B" & I).Value = X.ID
               Range("C" & I).Value = X.Caption
               Range("D" & I).Value = X.FaceId
           Next
       Next
   End Sub

nothingwmm

tkgg93 发表于 2011-1-22 22:36
Sub MenuList()
       On Error Resume Next
       Dim Nx As CommandBar

谢谢，我就是想要这个东西 哈哈

yimeng5132

学习学习！

sunjing-zxl

学习学习了，跟着版主学习没错！！