Excel VBA質問箱 IV

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

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


29860 / 76733 ←次へ | 前へ→

【52147】Re:既存のメニューを追加するアドインを作成する方法
発言  neptune  - 07/10/24(水) 22:31 -

引用なし
パスワード
   ▼やま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
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 お礼

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