Board logo

標題: [分享] 將巨集加在滑鼠的右鍵選單中 [打印本頁]

作者: ciboybj    時間: 2014-8-18 11:42     標題: 將巨集加在滑鼠的右鍵選單中

各位好
以下分享,如何將巨集加在滑鼠的右鍵選單中
將以下代碼填入thisdocument中
  1. Private Sub Workbook_BeforeClose(Cancel As Boolean)
  2. Application.CommandBars("cell").Reset '將右鍵恢復至原始狀態
  3. End Sub
  4. Private Sub Workbook_Open()
  5. On Error Resume Next
  6. Application.CommandBars("cell").Reset '將右鍵恢復至原始狀態
  7. With Application.CommandBars("Cell").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>在開啟EXCEL檔後
    先將右鍵選單恢復為原始設定
    將所自訂的右鍵選單內容加載於右鍵選單

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




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