随笔 - 298  文章 - 377  trackbacks - 0
<2007年4月>
25262728293031
1234567
891011121314
15161718192021
22232425262728
293012345

常用链接

留言簿(34)

随笔分类

随笔档案

文章档案

相册

收藏夹

搜索

  •  

最新评论

阅读排行榜

评论排行榜

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 聂文龙 阅读(487) 评论(0)  编辑 收藏 引用

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