前往小程序,Get更优阅读体验!
立即前往
首页
学习
活动
专区
工具
TVP
发布
社区首页 >专栏 >VBA 给Excel添加自定义菜单栏

VBA 给Excel添加自定义菜单栏

作者头像
一线编程
发布2019-07-22 14:59:32
3.4K0
发布2019-07-22 14:59:32
举报
文章被收录于专栏:办公魔盒
代码语言:javascript
复制
    Sub SetMenu()
        Dim myBar As CommandBar
        Dim myButton As CommandBarButton
        Set myBar = CommandBars.Add(Name:="vb小源码", _
            Position:=msoBarTop, _
            MenuBar:=True)
        Set myButton = myBar.Controls.Add(msoControlButton)
        myButton.Style = msoButtonCaption
        myButton.Caption = "退出[&E]"
        myButton.OnAction = "ExitSYS"
        Set myButton = myBar.Controls.Add(msoControlButton)
        myButton.Style = msoButtonCaption
        myButton.Caption = "返回[&R]"
        myButton.OnAction = "ReturnMAIN"
        myButton.Visible = True
        myBar.Protection = msoBarNoMove + msoBarNoCustomize
        myBar.Visible = True
    End Sub
本文参与 腾讯云自媒体同步曝光计划,分享自微信公众号。
原始发表:2019-03-05,如有侵权请联系 cloudcommunity@tencent.com 删除

本文分享自 办公魔盒 微信公众号,前往查看

如有侵权,请联系 cloudcommunity@tencent.com 删除。

本文参与 腾讯云自媒体同步曝光计划  ,欢迎热爱写作的你一起参与!

评论
登录后参与评论
0 条评论
热度
最新
推荐阅读
领券
问题归档专栏文章快讯文章归档关键词归档开发者手册归档开发者手册 Section 归档