| |
▼oscar900 さん：
回答側での書込みは初めてでドキドキしてます^^;
>ID が 424 と 427 で、両方作っておかなければNGってことですね！？
だと思います。
>先程標準にてaddした時点のIDをウォッチしてみたのですが、１となってました。
これは追加したメニューのIDではないでしょうか
追加する際にIDを指定しない場合、ユーザー定義のは自動的に1になる。
みたいな内容がヘルプにあったように記憶しております。
>とりあえず424（標準表示？）と427（プレビュー表示？）でやってみます。
は、そのとおりで合っていると思います。
新規ブックで
Sub GetID()
Dim c As Object, d As Object, i As Long
With ThisWorkbook.ActiveSheet
.Range("A1:G1").Value = _
Array("Name", "Name(日本語)", "ID", "表示", "子Name", "子ID", "子表示")
i = 2
For Each c In Application.CommandBars
For Each d In c.Controls
.Cells(i, 1).Value = c.Name
.Cells(i, 2).Value = c.NameLocal
.Cells(i, 3).Value = c.ID
.Cells(i, 4).Value = c.Visible
.Cells(i, 5).Value = d.Caption
.Cells(i, 6).Value = d.ID
.Cells(i, 7).Value = d.Visible
i = i + 1
Next
Next
End With
End Sub
こんなの実行してみると面白いですよ^^
|
|
Lindy
- 07/6/8(金) 17:07 -
