Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


29856 / 76732 ←次へ | 前へ→

【52150】Re:既存のメニューを追加するアドインを作成する方法
お礼  やまP  - 07/10/24(水) 23:17 -

引用なし
パスワード
   ▼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さん

ご丁寧に素早いご回答ありがとうございます。
エラー回避のことまで教えてくださって、大変助かります。

取り入れて完成させるまでに時間がかかってしまいそうなので、
お礼のみ先に言わせて頂こうと思います。
1 hits

【52144】既存のメニューを追加するアドインを作成する方法 やまP 07/10/24(水) 19:13 質問
【52145】Re:既存のメニューを追加するアドインを作... りん 07/10/24(水) 20:44 回答
【52146】Re:既存のメニューを追加するアドインを作... neptune 07/10/24(水) 21:47 回答
【52147】Re:既存のメニューを追加するアドインを作... neptune 07/10/24(水) 22:31 発言
【52150】Re:既存のメニューを追加するアドインを作... やまP 07/10/24(水) 23:17 お礼

29856 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free