VBA添加菜单
原创xiweicheng1987 博主文章分类:VBA ©著作权
©著作权归作者所有:来自51CTO博客作者xiweicheng1987的原创作品,请联系作者获取转载授权,否则将追究法律责任
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文件比较代码
下一篇:VBA生成SQL语句
提问和评论都可以,用心的回复会被更多人看到
评论
发布评论
相关文章
-
有趣的CSS - 汉堡菜单按钮
用 css 实现汉堡菜单图标与关闭图标过渡动画交互效果。
css 汉堡图标 动画 ux 交互体验 -
rcp添加菜单
rcp,eclipse添加菜单
eclipse rcp 添加菜单 -
MFC编程 -- 添加菜单
一、新建资源菜单二、编辑菜单文件(&F)新建(&N\tCtrl+N)三、将菜单绑定到窗口1、在
mfc c++ windows 句柄 初始化 -
windows 右键添加菜单 vscode
【代码】windows 右键添加菜单 vscode。
windows vscode ide Code Windows