標題: [發問] 查詢自訂工具列所指定的巨集 [打印本頁]

---

作者: mygod0403    時間: 2013-5-7 10:23     標題: 查詢自訂工具列所指定的巨集

請問有沒有什麼方法可以快速查出
自訂工具列上的按鈕所對應的巨集
謝謝……

---

作者: GBKEE    時間: 2013-5-7 15:50

回復 1# mygod0403

1. Sub Ex()
   
2.     Dim C As CommandBar, W As CommandBarControl, i As Integer
   
3.     i = 1
   
4.     For Each C In Application.CommandBars
   
5.         If C.ID = 1 Then      '自訂工具列的 ID = 1
   
6.             Cells(i, "A") = C.Name
   
7.             For Each W In C.Controls
   
8.                 Cells(i, "B") = W.OnAction
   
9.                 i = i + 1
   
10.             Next
    
11.             i = i + 1
    
12.         End If
    
13.     Next
    
14. End Sub

複製代碼

---

作者: mygod0403    時間: 2013-5-9 10:16

回復 2# GBKEE

感謝GBKEE大
我知道該怎麼做了…
謝謝

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)