随笔 - 298  文章 - 377  trackbacks - 0
<2007年8月>
日一二三四五六
2930311234
567891011
12131415161718
19202122232425
2627282930311
2345678

常用链接

留言簿(34)

随笔分类

随笔档案

文章档案

相册

收藏夹

搜索

  •  

最新评论

阅读排行榜

评论排行榜

怎么在word弹出的右键菜单中加上自定义的菜单项
Word中的右键弹出菜单也是保存在CommandBars集合中。可以通过辨识Type属性来列出这些弹出菜单。弹出菜单的Type为   msoBarTypePopup。如下为列出所有Word弹出菜单名称的代码。你可以从其中查找你所需要添加菜单项的弹出菜单的序号。   
   
  For   i   =   1   To   CommandBars.Count   
    
  If   CommandBars(i).Type   =   msoBarTypePopup   Then   
            
          Debug.Print   i   &   "   -   "   &   CommandBars(i).Name   
            
  End   If   
    
  Next   

    
  对于添加菜单项和显示弹出菜单，请使用如下样例代码（其中47为弹出菜单的序号，您可以从上段代码中找出）：  
   
  Dim   oBtn   As   CommandBarButton  
  Set   oBtn   =   CommandBars(47).Controls.Add(Type:=msoControlButton,   Temporary:=False)  
   
  oBtn.Caption   =   "Test   Button"  
  oBtn.OnAction   =   "TestBtnClick"   ‘请另外添加一sub并起名为TestBtnClick用来相应新菜单项的点击事件   
    
  显示弹出菜单  
  CommandBars(47).ShowPopup  
posted on 2007-04-20 11:00 聂文龙 阅读(502) 评论(0)  编辑 收藏 引用

只有注册用户登录后才能发表评论。
网站导航: 博客园   IT新闻   BlogJava   知识库   博问   管理


Copyright ©2024 聂文龙 Powered by: 博客园 模板提供：沪江博客