12
返回列表 上一主題 發帖

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

acdx

帖子
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

acdx

帖子
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

        靜思自在 : 修行要繫緣修心，藉事練心，隨處養心。
12
返回列表 上一主題