返回列表 上一主題 發帖

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

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

各位好
以下分享,如何將巨集加在滑鼠的右鍵選單中
將以下代碼填入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中)

        靜思自在 : 唯其尊重自己的人,才更勇於縮小自己。
返回列表 上一主題