返回列表 上一主題 發帖

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

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

        靜思自在 : 得理要饒人，理直要氣和。
返回列表 上一主題