如何生成可以打开网页的自定义菜单

作者：绿色风分类：时间：2022-08-17 浏览：153

楼主罗刚君	Q:如何生成可以打开网页的自定义菜单 A:用VBA代码创建两个菜单，然后在菜单对应的宏过程中打开对应的IE地址。 Sub auto_Open() '开启工作簿时创建菜单 With CommandBars("Worksheet Menu Bar").Controls.Add(msoControlButton, 1, , , True) '添加一个工作表子菜单 .Caption = "ET社区" '设置标题 .OnAction = "网" '关联到宏 .Style = msoButtonIconAndCaption '同时显示文字与图标 .FaceId = 273 '指定图标 End With With CommandBars("Worksheet Menu Bar").Controls.Add(msoControlButton, 1, , , True) '添加一个工作表子菜单 .Caption = "百宝箱" '设置标题 .OnAction = "网" '关联到宏 .Style = msoButtonIconAndCaption '同时显示文字与图标 .FaceId = 273 '指定图标 End With End Sub Sub 网() If Application.CommandBars.ActionControl.Caption = "百宝箱" Then Shell "explorer.exe http://excelbbx.cn/", vbMaximizedFocus Else Shell "explorer.exe http://www.exceltip.net", vbMaximizedFocus End If End Sub 2003效果 2010效果
2楼 wise	自己学着做一个： Sub AddMyMenu() Dim Cbar As CommandBar Dim CBarCtl As CommandBarControl Set Cbar = Application.CommandBars("Worksheet Menu Bar") Set CBarCtl = Cbar.Controls.Add(Type:=msoControlPopup) With CBarCtl .Caption = "wise" With .Controls.Add(Type:=msoControlButton) .Caption = "ET" .OnAction = "MyET" End With End With End Sub Sub MyET() MsgBox "welcome to ET ! " End Sub
3楼高玉甫	您的代码要如何放置？能否给一个放好代码的附件？谢谢您。
4楼高玉甫	您的代码肯定不错，但是，怎么使用？放置在何处？能否给一个放置好代码的附件？谢谢您。
5楼罗刚君	Book1.rar
6楼水星钓鱼	不错，学习

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表