[已解决]鼠标右键菜单添加ID出错

opelwang

代码：

1. Private Sub Workbook_BeforeClose(Cancel As Boolean)
   
2.     Application.CommandBars("cell").Reset
   
3. End Sub
   
4. Private Sub Workbook_Open()
   
5.     Application.CommandBars("cell").Reset
   
6.     Set MyMenu = Application.CommandBars("cell").Controls.Add(Type:=msoControlPopup, before:=9)
   
7.     With MyMenu
   
8.         .BeginGroup = True
   
9.         .Caption = "签名工具"
   
10.         .FaceId = 333 '***********************************在这里添加一句ID会报错
    
11.         Set COM1 = .Controls.Add(Type:=msoControlButton)
    
12.         Set COM2 = .Controls.Add(Type:=msoControlButton)
    
13.         Set COM3 = .Controls.Add(Type:=msoControlButton)
    
14.         Set COM4 = .Controls.Add(Type:=msoControlButton)
    
15.     End With
    
16. 
    
17.     With COM1
    
18.         .Caption = "Setup(设置签名表)"
    
19.         .FaceId = 327
    
20.         .OnAction = "设置"
    
21.     End With
    
22. 
    
23.     With COM2
    
24.         .Caption = "Prepared(制表)"
    
25.         .FaceId = 1950
    
26.         .OnAction = "制表"
    
27.     End With
    
28. 
    
29.     With COM3
    
30.         .Caption = "Checked(审核)"
    
31.         .FaceId = 720
    
32.         .OnAction = "审核"
    
33.     End With
    
34. 
    
35.     With COM4
    
36.         .Caption = "Approved(批准)"
    
37.         .FaceId = 2006
    
38.         .OnAction = "批准"
    
39.     End With
    
40. End Sub

复制代码

最佳答案

月排行榜 / 总排行榜

FF7

2011-8-12 13:57

我的意思是说：
CommandBarpopup控件，根本就没有FaceID属性。
你的代码：
Application.CommandBars("cell").Controls.Add(Type:=msoControlPopup, before:=9)
这里的Type:=msocontrolPopup，意思是在右键菜单中添加一个弹出式菜单msoControlpopup。
这里的弹出式菜单，就是CommandbarPopup对象。

那么我们直接对myMenu强制定义为Commandbarpopup，而不是让myMenu作为一个变体类型来用。这个时候，你会发现，myMenu的属性列表中，根本就不存在FaceId属性。那么给一个没有此属性的属性赋值，当然是找不到咯！！




解决办法只有一条：删除.FaceID = 333这句代码！

跳转到最佳答案楼层

opelwang

补上两张截图：

FF7

貌似CommandbarPopup控件不支持FaceId属性。
检测方法，在“Application.CommandBars("cell").Reset
    Set MyMenu = 。。。。。。”
这一句代码前，加上：Dim myMenu as commandbarpopup
这样myMenu的属性列表将随着myMenu.这里的“.”符号列出！！！

opelwang

好象不行，提示：编译错误，找不到方法或资料成员。

FF7

我的意思是说：
CommandBarpopup控件，根本就没有FaceID属性。
你的代码：
Application.CommandBars("cell").Controls.Add(Type:=msoControlPopup, before:=9)
这里的Type:=msocontrolPopup，意思是在右键菜单中添加一个弹出式菜单msoControlpopup。
这里的弹出式菜单，就是CommandbarPopup对象。

那么我们直接对myMenu强制定义为Commandbarpopup，而不是让myMenu作为一个变体类型来用。这个时候，你会发现，myMenu的属性列表中，根本就不存在FaceId属性。那么给一个没有此属性的属性赋值，当然是找不到咯！！




解决办法只有一条：删除.FaceID = 333这句代码！

opelwang

就是说这里设置不了标签？
是否有其它变通的方法？

opelwang

既然行不通，就放弃吧....