返回列表 上一主題 發帖

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

huijuang

帖子
49 
主題
3 
精華
0 
積分
74 
點名
0  
作業系統
windows 
軟體版本
XP 
閱讀權限
20 
性別
男 
來自
雲林 
註冊時間
2014-2-13 
最後登錄
2020-9-18 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2014-3-24 11:18 | 只看該作者

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

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


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

'以下開始安裝增益集；註此程式放置於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可自行上網尋找
收藏 分享
動念成因積因成果 by huijuang

boblovejoyce

帖子
38 
主題
7 
精華
0 
積分
48 
點名
0  
作業系統
win8 
軟體版本
office2010 
閱讀權限
10 
性別
男 
註冊時間
2015-4-30 
最後登錄
2016-12-5 
2#
發表於 2015-5-20 19:33 | 只看該作者
回復 1# huijuang

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

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

'要用Public sub 喔~

TOP

        靜思自在 : 君子立恆志，小人恆立志。
返回列表 上一主題