这篇文章主要介绍“wpsvba如何自定义菜单栏”的相关知识,小编通过实际案例向大家展示操作过程,操作方法简单快捷,实用性强,希望这篇“wpsvba如何自定义菜单栏”文章能帮助大家解决问题。
wpsvba自定义菜单栏的方法:
vba插件中提供了菜单栏自定义命令功能。
使用ComandBar对象的Controls属性获取所有的命令按钮集合。
最后用新增集合元素的方法添加新的菜单命令。
下方的代码可以单元格快捷菜单中添加自定义的菜单命令。
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
'指定单击新增的命令时执行的子过程名称
.OnAction = "lyq"
.Caption ="测试""End With
End With
End Sub
Sub lyq()
MsgBox 1
End Sub
点击新增的“测试”时,将会执行“lyq”子过程。
关于“wpsvba如何自定义菜单栏”的内容就介绍到这里了,感谢大家的阅读。如果想了解更多行业相关的知识,可以关注编程网行业资讯频道,小编每天都会为大家更新不同的知识点。