返回列表 上一主題 發帖

[轉貼] VBA-自訂CommandBarButton事件 (插入自動圖文集)

偉婕
　暱稱: 偉婕

版主Rank: 7Rank: 7Rank: 7

帖子
376 
主題
84 
精華
0 
積分
419 
點名
0  
作業系統
Win 8 
軟體版本
Office 2007 
閱讀權限
100 
性別
女 
註冊時間
2010-4-30 
最後登錄
2022-6-2 

論壇貢獻勳章美女勳章熱烈參與勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2010-6-30 23:25 | 只看該作者

[轉貼] VBA-自訂CommandBarButton事件 (插入自動圖文集)

VBA, 自動圖文集
原發表者：leonchou (2005-05-28)

這次的需求是自訂一個下拉式功能表，加入數個按鈕；按鈕的動作是在文件中插入以按鈕名稱為名的自動圖文集項目。
由於 CommandBarButton的 OnAtion 不接受帶參數的巨集，又不想重複寫多個類似的巨集，所以有以下的解決方案。

其實在建立CommandBarButton時直接指定爲自動圖文集項目是可行的，但如果你真的不想那樣做，那麼以下介紹自訂 CommandBarButton 的 Click 事件：

1. 新增一個物件類別模組 (使用預設名稱Class1)，包含以下代碼 --
  1. Public WithEvents cmdBarButton As Office.CommandBarButton
  2. Private Sub cmdBarButton_Click(ByVal Ctrl As Office.CommandBarButton, _
  3. 　　CancelDefault As Boolean)
  4. 　　InsertAutoText Ctrl.Caption
  5. 　　CancelDefault = True
  6. End Sub
複製代碼
2. 建立下拉式功能表巨集所在模組的程式碼 --
  1. Dim btnClass() As New Class1
  2. Public Sub CreateCommandBarPopup()
  3. 　　Dim objCommandBarControl As Office.CommandBarControl
  4. 　　Dim objCommandBarButton As Office.CommandBarButton
  5. 　　
  6. 　　'刪除原有的下拉式功能表控制項
  7. 　　For Each objCommandBarControl In CommandBars("Standard").Controls
  8. 　　　　If objCommandBarControl.Caption = "我的功能表\" Then
  9. 　　　　　 objCommandBarControl.Delete
  10. 　　　　End If
  11. 　　Next objCommandBarControl
  12. 　　
  13. 　　'在"一般"工具列建立下拉式功能表及按鈕
  14. 　　With CommandBars("Standard").Controls.Add(msoControlPopup)
  15. 　　　　.Caption = "我的功能表\\"
  16. 　　　　myCount = 0
  17. 　　　　For Each itm In Array("審計單位", "建設單位")
  18. 　　　　　　Set objCommandBarButton = .Controls.Add(msoControlButton)
  19. 　　　　　　With objCommandBarButton
  20. 　　　　　　　　.Caption = itm
  21. 　　　　　　　　.Tag = .Caption
  22. 　　　　　　End With
  23. 　　　　　　myCount = myCount + 1
  24. 　　　　　　ReDim Preserve btnClass(1 To myCount)
  25. 　　　　　　'將CommandBarButton逐一連結到上面自定義的cmdBarButton物件
  26. 　　　　　　Set btnClass(myCount).cmdBarButton = objCommandBarButton
  27. 　　　　Next itm
  28. 　　End With
  29. End Sub

  31. Sub InsertAutoText(strAutoText As String)
  32. ' 在目前位置插入自動圖文集
  33. 　　ActiveDocument.AttachedTemplate.AutoTextEntries(strAutoText).Insert Where:=Selection.Range
  34. End Sub
複製代碼
如此當按下自定義功能表的按鈕就會觸發物件類別模組Class1 的cmdBarButton_Click 事件，自動判別其 Caption 屬性並呼叫 InsertAutoText 程式。
PS.
1. 相關的自動圖文集項目必須已存在，若沒有請先建立。
2. 在文件中插入自動圖文集的代碼也可以直接寫在類模組 Class1 的 cmdBarButton_Click 事件之中。
收藏 分享
偉婕電子書,歡迎免費下載參考
http://www.twbts.com/ebook/?subject=office
http://www.twbts.com/ebook/?subject=soft
偉婕藏書庫---https://www.facebook.com/groups/669579416484096/
有一家柑仔店---https://www.facebook.com/sadodona

yangjie

帖子
258 
主題
77 
精華
0 
積分
385 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-8-8 
最後登錄
2021-1-25 
2#
發表於 2014-1-19 14:01 | 只看該作者
回復 1# 偉婕
可否請教版主大大
      Excel VBA裡     
      Path1 = Application.ActiveWorkbook.Path      
      在Excel VBA裡 應如何寫語法 去打開   path1 & "\A4_3x7.doc"   
                            萬分感激

TOP

        靜思自在 : 一個缺口的杯子，如果換一個角度看它，它仍然是圓的。
返回列表 上一主題