如何將VBA程式轉成增益集?

已寫好一個VBA程式，如何將它轉成增益集?
有事過直接另存新檔成.xlam格式卻無法成功加入該增益集
請問我的問題出在哪裡?

樓主熱帖

acdx

中學生 Rank: 2

帖子: 132
主題: 56
精華: 0
積分: 190
點名: 0
作業系統: Win10
軟體版本: Office 365
閱讀權限: 20
性別: 男
註冊時間: 2012-5-17
最後登錄: 2025-4-8

12^#

發表於 2013-7-15 16:39 | 只看該作者

解決了
上來分享一下也順便解釋我原先的問題點(一開始描述的不好讓版上大大很難懂抱歉)
要使增益集可以出現在"自訂工具列"中需加入Auto_Open

Private Sub Workbook_Open()
   Dim myNewBar As CommandBar          '宣告工具列物件
   Dim myButton1 As CommandBarButton '宣告工具列按鈕物件
   Dim myButton2 As CommandBarButton

   Set myNewBar = Application.CommandBars.Add    '新增一個工具列
   myNewBar.Name = "Tool-Bar"                            '工具列命名

   With myNewBar
      Set myButton2 = .Controls.Add(msoControlButton)

      With myButton2
            '.Style = msoButtonCaption '只顯示文字底下這3種型式選一種
            '.Style = msoButtonIcon    '只顯示小圖示
            '同時顯示文字和小圖示
            .Style = msoButtonIconAndCaption 'msoComboLabel
            .BeginGroup = True
            .Caption = "ToolBox"                '顯示在工具列上的按鈕文字
            .TooltipText = "ToolBox"          '滑鼠移過去時，所顯示的提示文字
            .FaceId = 435                      '小圖示
            .Tag = "MyCustomTag"
            .OnAction = "ToolBox"    '設定按下此鍵時所要執行的巨集
      End With

      .Position = msoBarBottom 'Top          '工具列擺放在上層
      .Visible = True
   End With
End Sub
另外還要寫一個關閉的程式
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("Tool-Bar").Delete
End Sub

TOP

acdx

中學生 Rank: 2

帖子: 132
主題: 56
精華: 0
積分: 190
點名: 0
作業系統: Win10
軟體版本: Office 365
閱讀權限: 20
性別: 男
註冊時間: 2012-5-17
最後登錄: 2025-4-8

11^#

發表於 2013-5-14 12:39 | 只看該作者

終於找到答案了要在Workbook設定Open以及BeforeClose即會出現在自訂工具列
======================================
Private Sub Workbook_Open()
   Dim myNewBar As CommandBar          '宣告工具列物件
   Dim myButton1 As CommandBarButton '宣告工具列按鈕物件
   Dim myButton2 As CommandBarButton

   Set myNewBar = Application.CommandBars.Add    '新增一個工具列
   myNewBar.Name = "Tool-Bar"                            '工具列命名

   With myNewBar
      Set myButton2 = .Controls.Add(msoControlButton)
============================================
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("Tool-Bar").Delete
End Sub
      With myButton2
            .Style = msoButtonCaption
            .BeginGroup = True
            .Caption = "Acoustic Toolbox"                '顯示在工具列上的按鈕文字
            .TooltipText = "ToolBox"          '滑鼠移過去時，所顯示的提示文字
            .FaceId = 159                      '小圖示
            .Tag = "MyCustomTag"
            .OnAction = "ToolBox"    '設定按下此鍵時所要執行的巨集
      End With

      .Position = msoBarTop          '工具列擺放在上層
      .Visible = True
   End With
End Sub

TOP

GBKEE