| |
▼neptune さん：
>▼やまP さん：
>ややこしいので作りました。これで調べて下さいませ。
>Excel2000で作成。一応動きました。
>他に必要なら、必要な物を追加してください。
>
>Sub 全てのメニューの名前とIDをシートに書き出す()
>Dim bar As CommandBar
>Dim ctrl As CommandBarControl
>Dim i As Long, r As Long, col As Long
>
> For Each bar In Application.CommandBars
> r = r + 1
> col = 1
> Cells(r, col).Value = "Name : " & bar.Name & " index : " & bar.Index
> i = 0
> For Each ctrl In bar.Controls
> Cells(r, col + 1).Value = "Caption : " & ctrl.Caption
> Cells(r, col + 2).Value = "ID : " & ctrl.ID
> r = r + 1
> Next
> Next
>End Sub
りんさん
neptuneさん
ご丁寧に素早いご回答ありがとうございます。
エラー回避のことまで教えてくださって、大変助かります。
取り入れて完成させるまでに時間がかかってしまいそうなので、
お礼のみ先に言わせて頂こうと思います。
|
|
やまP
- 07/10/24(水) 23:17 -
