[分享] 將巨集加在滑鼠的右鍵選單中

ciboybj

各位好
以下分享，如何將巨集加在滑鼠的右鍵選單中
將以下代碼填入thisdocument中

1. Private Sub Workbook_BeforeClose(Cancel As Boolean)
   
2. Application.CommandBars("text").Reset '將右鍵恢復至原始狀態
   
3. End Sub
   
4. Private Sub Workbook_Open()
   
5. On Error Resume Next
   
6. Application.CommandBars("text").Reset '將右鍵恢復至原始狀態
   
7. With Application.CommandBars("text").Controls.Add(Type:=msoControlButton, before:=1)
   
8. .Caption = "使用者自訂巨集"    '顯示於右鍵選單的名稱
   
9. .FaceId = 202    '符號圖案
   
10. .OnAction = "test"     '指定執行的巨集名稱
    
11. End With
    
12. End Sub

複製代碼

複製代碼
其中關於 符號圖案 的號碼可參考以下網址
http://www.excelpx.com/thread-206527-1-1.html

上面的程式大概的說明如下

1>在開啟word檔後
    先將右鍵選單恢復為原始設定
    將所自訂的右鍵選單內容加載於右鍵選單

2>在檔案關閉時
   將右鍵選單恢復為原始設定(不然,該設定會一直存在於各word中)