返回列表 上一主題 發帖

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

ciboybj

帖子
47 
主題
19 
精華
0 
積分
82 
點名
0  
作業系統
win  
軟體版本
xp 
閱讀權限
20 
註冊時間
2014-7-4 
最後登錄
2021-9-4 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2014-8-19 08:38 | 只看該作者

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

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

        靜思自在 : 小事不做、大事難成。
返回列表 上一主題