Excel2000VBA すべてのツールバーのボタン番号のチェックする方法
Excel2007では動きません。
標準モジュールにコピペして実行すると、A列にすべてのボタン名、B列にボタンの番号が書き込まれます。
独自のツールバーを作ったとき、そのボタンが何番かなどを知るのに使います。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 |
'################################################################ 'すべてのツールバーのボタン番号のチェック '※すべてといっても、形式を選択して貼り付け、みたいな 'ダイアログメニューのボタンの番号は無いもよう ' '################################################################ Sub AllCmdBarNumChk01() Dim i As Long Dim j As Long Dim tmp01 As Long i = 1 j = 1 tmp01 = 0 For j = 1 To 50 With CommandBars(j) tmp01 = tmp01 + .Controls.Count For i = 1 To .Controls.Count Cells(tmp01 + i, 1) = .Controls(i).Caption Cells(tmp01 + i, 2) = .Controls(i).ID Next i End With Next j End Sub '################################################################ '「ミニ編集」ツールバーのボタン番号のチェック 'あらかじめ「ミニ編集」という名前のツールバーが作ってないといけない。 ' '################################################################ Sub CellHennsyuuNumChk() Dim i As Long With CommandBars("ミニ編集") For i = 1 To .Controls.Count Cells(i, 1) = .Controls(i).Caption Cells(i, 2) = .Controls(i).ID Next i End With End Sub '################################################################ ' ' ' '################################################################ Sub Sample7() Dim i As Long With CommandBars("Edit") For i = 1 To .Controls.Count Cells(i, 1) = .Controls(i).Caption Cells(i, 2) = .Controls(i).ID Next i End With End Sub |
- 投稿タグ
- ExcelVBA
