永发信息网

如何用VBA代码为Word添加菜单(即命令栏)?

答案:1  悬赏:0  手机版
解决时间 2021-02-18 18:59
谢谢这位兄台。可是这个菜单只能增加。却不能删除。如何在关闭WORD时自动删除呢?
最佳答案
Dim myMenuBar
Dim newMenu
Dim ctrl1
Dim s
Dim flag As String

'初始化菜单
Set myMenuBar = CommandBars.ActiveMenuBar
Set newMenu = myMenuBar.Controls.Add(Type:=msoControlPopup, _
Temporary:=True)
newMenu.Caption = "电子印章"
Set ctrl1 = newMenu.Controls.Add(Type:=msoControlButton, ID:=1)
ctrl1.Caption = "添加电子印章"
ctrl1.Style = msoButtonCaption
ctrl1.OnAction = "AddSeal"
Set ctrl1 = newMenu.Controls.Add(Type:=msoControlButton, ID:=1)
ctrl1.Caption = "验证电子印章"
ctrl1.Style = msoButtonCaption
ctrl1.OnAction = "CheckSeal"
ctrl1.Style = msoButtonCaption
Set ctrl1 = newMenu.Controls.Add(Type:=msoControlButton, ID:=1)
ctrl1.Caption = "关于"
ctrl1.OnAction = "About"
ctrl1.Style = msoButtonCaption
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
雅思利厨卫电器在什么地方啊,我要过去处理事
【足球比赛中场休息多久】世界杯足球比赛中场
实在不会啊啊
单选题水分从土壤进入根部导管的途径是A.土壤
电子清洗剂的种类有哪些
科捷电脑办公耗材在什么地方啊,我要过去处理
某中学为活跃校园文化,举办了中外文化展览。
平乡县邢台利郎(昌平街)这个地址怎么能查询到
面膳在什么地方啊,我要过去处理事情
襄城县山头店乡的古墓
仓鼠用的浴沙怎么加热冬天浴沙太冷了 SS不洗
AGM X1手机玩游戏怎么样
白晶时尚宾馆怎么去啊,有知道地址的么
2010年2月7日,我国老龄委发布数据显示,截至
第一次刷油漆,刷楼梯扶手第一遍底漆有流挂怎
推荐资讯
有那趟火车经过太原又经过襄汾
改良剂做包子有什么作用
蒲城县椿林乡汉村小学地址在哪,我要去那里办
第一套房是我的名字,第二套房用我老婆的名字
男,38岁。因胃癌行胃大部切除术,术中估计失
人生能有几个知己
群青有哪些成分
“哥伦布发现美洲以及接踵而来……给欧洲人送
请问现在银行从业考试就是银行初级考试么
断掌男人的命运
剑桥雅思做听写练习 是每个SECTION都做吗?还
おもてなし是什么意思
正方形一边上任一点到这个正方形两条对角线的
阴历怎么看 ?