熱搜:win11繞過(guò)硬件限制安裝 一鍵重裝Win10系統(tǒng) 最干凈的u盤啟動(dòng)盤 真正純凈版的win7系統(tǒng)
時(shí)間:2023-07-05 09:44:30 作者:lihong 來(lái)源:系統(tǒng)之家 1. 掃描二維碼隨時(shí)看資訊 2. 請(qǐng)使用手機(jī)瀏覽器訪問(wèn): https://m.xitongzhijia.net/xtjc/20230705/292545.html 手機(jī)查看 評(píng)論 反饋
WPSVBS怎么自定義菜單欄?WPS是一款功能強(qiáng)大的辦公軟件,其中VBS功能可以幫助用戶自定義各種功能和操作,自定義菜單欄是一項(xiàng)常見(jiàn)的需求,允許用戶根據(jù)自己的工作習(xí)慣和喜好進(jìn)行個(gè)性化定制。以下小編將為用戶介紹怎么使用WPSVBS來(lái)輕松自定義菜單欄,以滿足自己特定的工作需求,并提升工作效率!靖嗑匪夭臍g迎前往辦公之家下載】
WPSVBS自定義菜單欄教程
1、VBS插件中提供了菜單欄自定義命令功能。
2、使用ComandBar對(duì)象的Controls屬性獲取所有的命令按鈕集合。
3、最后用新增集合元素的方法添加新的菜單命令。
4、下方的代碼可以單元格快捷菜單中添加自定義的菜單命令。
Sub xyf()
Dim objCB As CommandBar
’獲取單元格右鍵快捷菜單命令欄
Set objCB= Excel.Application.CommandBars(“Cell”)
Dim oCBC As CommandBarControl
With objCB
.Reset
’往單元格右鍵快捷菜單中新增菜單命令
Set oCBC = .Controls.Add(before:=1)With oCBC
‘指定單擊新增的命令時(shí)執(zhí)行的子過(guò)程名稱
.OnAction = “lyq”
.Caption =“測(cè)試”“End With
End With
End Sub
Sub lyq()
MsgBox 1
End Sub
5、點(diǎn)擊新增的“測(cè)試”時(shí),將會(huì)執(zhí)行“LYQ”子過(guò)程。
以上就是系統(tǒng)之家小編為你帶來(lái)的關(guān)于“WPSVBS怎么自定義菜單欄?WPSVBS自定義菜單欄教程”的全部?jī)?nèi)容了,希望可以解決你的問(wèn)題,感謝您的閱讀,更多精彩內(nèi)容請(qǐng)關(guān)注系統(tǒng)之家官網(wǎng)。
發(fā)表評(píng)論
共0條
評(píng)論就這些咯,讓大家也知道你的獨(dú)特見(jiàn)解
立即評(píng)論以上留言僅代表用戶個(gè)人觀點(diǎn),不代表系統(tǒng)之家立場(chǎng)