[分享] 自製增益集(工具列)

huijuang

最近幾天將自製的增益集改為圖示工具列

下載 (125.25 KB)

2014-3-24 11:16

在這分享工具列的製作程式

'以下開始安裝增益集；註此程式放置於ThisWorkbook下
Private Sub Workbook_AddinInstall()

'新增一個叫Raytool的工具列
Application.CommandBars.Add(Name:="Raytool").Visible = True

'以下開始設定第一個按鈕
Set MyItem1 = Application.CommandBars("Raytool").Controls.Add(Type:=msoControlButton)
     MyItem1.Caption = "開啟動態"               '按鈕1的名稱
     MyItem1.FaceId = 2778                      '按鈕1的圖示
     MyItem1.OnAction = "openfile"             '按鈕1的巨集名稱

'以下開始設定第二個按鈕
Set MyItem2 = Application.CommandBars("Raytool").Controls.Add(Type:=msoControlButton)
     MyItem2.Caption = "轉置貼上值"                         '按鈕2的名稱
     MyItem2.FaceId = 2685                                   '按鈕2的圖示
     MyItem2.OnAction = "ValueChangeBottom"          '按鈕2的巨集名稱

End Sub

'以下開始反安裝增益集；註此程式放置於ThisWorkbook下
Private Sub Workbook_AddinUninstall()
    Application.CommandBars("Raytool").Delete
End Sub

註：excel FaceID可自行上網尋找

boblovejoyce

回復 1# huijuang

爬文至此,感謝大大分享增益集按鈕的訊息
另外補充,按鈕要啟動的巨集

可以如下(因為我是遇到這個小問題~鬼檔牆)
'按鈕一
Public Sub openfile()
'省略,自己加程式碼
End Sub

'要用Public sub 喔~