標題: Excel中，右鍵新增項目 [打印本頁]

---

作者: cchaha_captain    時間: 2011-9-19 22:48     標題: Excel中，右鍵新增項目

請問一下，例如在windows檔案總管內，我們可以透過某些方法，在按下右鍵所啟動的選單中，加入我們想要的項目。
那在excel中有沒有類似的功能，例如隨便一個儲存格上按下右鍵所啟動的選單中，加入一個項目，而這個項目可以打開我自己做的form或combo，不知excel的vba能否達到此功能？
請教各位前輩，謝謝各位！

---

作者: oobird    時間: 2011-9-19 23:12

例如：
Sub xx()
With Application.CommandBars("Cell")
    .Reset
    .Controls.Add(Type:=msoControlButton, before:=2).Caption = "巨集1"
    .Controls("巨集1").OnAction = "yy"
    End With
End Sub
在右鍵的第二項增加一個執行巨集1的項目，該項目指向名為"yy"的巨集
離開時要移除
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("cell").Reset
End Sub

---

作者: cchaha_captain    時間: 2011-9-20 00:10

好厲害！回應好快！成功了，謝謝oobird！

---

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