標題: 如何將VBA程式轉成增益集? [打印本頁]

---

作者: acdx    時間: 2012-12-5 00:59     標題: 如何將VBA程式轉成增益集?

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

---

作者: GBKEE    時間: 2012-12-5 07:48

回復 1# acdx
如何不成功:請說詳細一點


    [attach]13391[/attach]

---

作者: acdx    時間: 2012-12-6 14:44

回復 2# GBKEE


轉存成.xlam，將他新增到增益集
[attach]13410[/attach]
卻還是看不到
[attach]13411[/attach]
請問問題是出在哪?

---

作者: GBKEE    時間: 2012-12-6 14:56

回復 3# acdx
找出它

[attach]13413[/attach]

---

作者: acdx    時間: 2012-12-6 15:14

回復 4# GBKEE


有加入了 我要新增的就是"Add_Sheet"
加入後還是沒有出現

---

作者: GBKEE    時間: 2012-12-6 15:20

回復 5# acdx
加入後還是沒有出現 什麼意思
到VBA視窗看看

---

作者: acdx    時間: 2012-12-7 16:01

回復 6# GBKEE
VBA裡有看到，但我希望可以出現在功能表裡
[attach]13434[/attach]

---

作者: GBKEE    時間: 2012-12-7 16:47

回復 7# acdx
載入增益集後會有這功能嗎?

---

作者: acdx    時間: 2012-12-7 23:49

回復 8# GBKEE
Excel 2007有

---

作者: GBKEE    時間: 2012-12-8 07:18

回復 9# acdx
那我只有2003版,落伍了.

---

作者: acdx    時間: 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

---

作者: acdx    時間: 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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)