Excel交流网
  • 设为首页|收藏本站|手机版
  • Excel-教程-技巧-培训视频

  • 网站首页
  • Excel教程
  • 关于我们
  • 新闻动态
  • Excel资源
  • 招贤纳士

Excel教程

Excel操作
Excel函数
Excel图表
Excel VBA
Excel 行业应用

联系方式

Excel中国 联系方式
电  话:400-855-3990
邮  编:528400
Email:support@zstm.com
网  址:www.excel-cn.com

当前位置:网站首页 > Excel教程 > Excel VBA
Excel VBA

EXCEL创建右键自定义菜单

有些时候,我们希望能通过快捷菜单直接调用一些功能。比如右键菜单就能单击右键-选择相应的功能。那么如何自定义右键菜单呢。

e1.jpg

这里我们用的是Excel VBA:使用 CommandBarPopup对象

用 Controls(index) 可返回一个 CommandBarPopup对象;此处 index 是该控件的索引号。该控件的Type属性必须是 msoControlPopup、msoControlGraphicPopup、msoControlButtonPopup、msoControlSplitButtonPopup 或 msoControlSplitButtonMRUPopup。




详细VBA代码:

这段代码保存在Thisworkbook模块即可。

Private Sub Workbook_Open()

    

'    Function:自定义右键快捷菜单    

'    Author:流沙莫小虫    

    Dim cmp As CommandBarPopup '定义一个弹出式控件    

    Application.CommandBars("Cell").Reset '单元格菜单重置   

    Set cmp = Application.CommandBars("Cell").Controls.Add(Type:=msoControlPopup, before:=1, temporary:=True)    

'    添加右键菜单,增加位置第一个    

    With cmp        

        .Caption = "自定义右键菜单" '菜单命名        

'        下面添加子菜单        

        With .Controls.Add(Type:=msoControlButton, before:=1)           

            .Caption = "功能1" '子菜单名称           

            .FaceId = 39           

            .OnAction = "function1" 'function1是你自定义的功能名称            

        End With        

        With .Controls.Add(Type:=msoControlButton, before:=2)            

            .Caption = "功能2"            

            .FaceId = 39            

            .OnAction = "function2"            

        End With        

        With .Controls.Add(Type:=msoControlButton, before:=3)            

            .Caption = "功能3"            

            .FaceId = 39            

            .OnAction = "function3"            

        End With        

    End With    

    Set cmp = Nothing

    

End Sub


PS:.FaceId是EXCEL内置图标,如下图中的红色框内的图标。

e2.jpg


点击次数:  更新时间:2017-07-13 17:12:40  【打印此页】  【关闭】
上一条:几个有用的做Excel报表技巧  下一条:Excel九九乘法表的做法
本站动态|在线留言|在线反馈|友情链接|会员中心|站内搜索|网站地图|网站管理

中山市天鸣科技发展有限公司 版权所有 1999-2020 粤ICP备10043721号

广东省中山市西苑广场富贵阁 528400

QQ:4008553990 电话:0760-88315075

Excel交流网主要交流Excel教程、Excel技巧、Excel培训、Excel函数公式、Excel图表以及Excel VBA,为网友提供一个最全的Excel交流网站

Excel教程|Excel技巧|Excel培训|Excel函数公式|Excel图表|VBA

Powered by MetInfo 5.3.12 ©2008-2022  www.metinfo.cn