VBA添加菜单

Sub CreateMenu()

Dim menuBar As CommandBar

Set menuBar = Application.CommandBars("Worksheet Menu Bar")

menuBar.Reset

Dim menu As CommandBarPopup

Set menu = menuBar.Controls.Add(Type:=msoControlPopup, temporary:=True)

menu.Caption = "Tools"

Dim menuItem As CommandBarButton

Set menuItem = menu.Controls.Add(Type:=msoControlButton, temporary:=True)

menuItem.Caption = "SheetCompare"

menuItem.OnAction = "CompareHandle"

Dim menuItem2 As CommandBarButton

Set menuItem2 = menu.Controls.Add(Type:=msoControlButton, temporary:=True)

menuItem2.Caption = "ExportSheetAsTxt"

menuItem2.OnAction = "ExportSheetAsTxt"

Dim menuItem5 As CommandBarButton

Set menuItem5 = menu.Controls.Add(Type:=msoControlButton, temporary:=True)

menuItem5.Caption = "SheetsCompare"

menuItem5.OnAction = "SheetsCompare"

Dim menuItem3 As CommandBarButton

Set menuItem3 = menu.Controls.Add(Type:=msoControlButton, temporary:=True)

menuItem3.Caption = "CreateInsertSQL"

menuItem3.OnAction = "SqlInsert"

Dim menuItem4 As CommandBarButton

Set menuItem4 = menu.Controls.Add(Type:=msoControlButton, temporary:=True)

menuItem4.Caption = "CreateDeleteSQL"

menuItem4.OnAction = "SqlDelete"

End Sub

网页标题：VBA添加菜单
新闻来源：http://lszwz.com/article/ggcioi.html

其他资讯

售后响应及时

7×24小时客服热线

数据备份

更安全、更高效、更稳定

价格公道精准

项目经理精准报价不弄虚作假

合作无风险

重合同讲信誉，无效全额退款

乐山小谭建站工作室是一家专注从事于高品质视觉体验及互联网设计开发，乐山网站建设，乐山网站设计，乐山网页设计，乐山网站制作，品牌网站建设，营销网站建设，集团网站建设，企业网站建设，外贸网站建设，响应式网站建设，小程序开发，微信开发，企业形象设计，企业宣传视频等服务，小谭建站位于乐山市龙岗区大运软件小镇，小谭建站拥有经验丰富的高级网站建设工程师和一流的网页高端设计人员，具备各种规模与类型网站建设的雄厚实力，在网站建设领域树立了自己独特的设计风格。

友情链接交换友情链接

都江堰网站建设帛金家居手机网站版本重庆小程序开发公司四川绵阳机房边坡防护网厂家成都小程序制作东电技服企业手机网站建设高端定制网站建设

Copyright © 2022 青羊区小谭信息技术咨询服务工作室乐山建站工作室 All Rights Reserved 蜀ICP备2021004003号-25

Copyright © 2022 青羊区小谭信息技术咨询服务工作室乐山建站工作室

蜀ICP备2021004003号-25