[已解决]请教：自定义快捷菜单中的combobox无法显示为什么

today0427

office2007版本  照样子学着写了添加自定义快捷菜单的代码，正常的msocontrolbutton都能显示，就是添加的combobox无法显示，检查了半天代码也不知道哪里错了，烦请大神指教，谢谢！
以下为在row上面添加的快捷菜单，前两个都能显示，就是第三个“复制工作表”的combobox无法显示出来

1. Sub tjlpp()
   
2. On Error Resume Next
   
3.     Application.CommandBars("row").Controls("ÎҵIJ˵¥").Delete
   
4.     Dim pp, pp1, pp2, i
   
5.     Set pp = Application.CommandBars("row").Controls.Add(Type:=msoControlPopup, before:=1)
   
6.     With pp
   
7.         .Caption = "ÎҵIJ˵¥"
   
8.         .BeginGroup = True
   
9.         .Visible = True
   
10.         .Enabled = True
    
11.     End With
    
12. 
    
13.     Set pp1 = pp.Controls.Add(before:=1)
    
14.     With pp1
    
15.         .Caption = "Òƶ¯¹¤×÷±í"
    
16.         .FaceId = 12
    
17.         .Style = msoButtonIconAndCaption
    
18. '        .OnAction = "ÄãºÃ"
    
19.     End With
    
20.     Set pp1 = pp.Controls.Add(before:=2)
    
21.     With pp1
    
22.         .Caption = "¼ôÇй¤×÷±í"
    
23.         .FaceId = 12
    
24.         .Style = msoButtonIconAndCaption
    
25. '        .OnAction = "ÄãºÃ"
    
26.     End With
    
27.     Set pp2 = pp.Controls.Add(Type:=msoControlComboBox, before:=3)
    
28. 
    
29.     With pp2
    
30.          .Caption = "¸´Öƹ¤×÷±í"
    
31.          .BeginGroup = True 'Ìí¼Ó·Ö×éÏß
    
32.     '     .OnAction = "Ñ¡È¡¹¤×÷±í" 'Ö¸¶¨ÒªÔËÐеĺê
    
33.          .Width = 100
    
34.          .DropDownWidth = 70
    
35.          .Enabled = True
    
36.          .Visible = True
    
37.          For i = 1 To Sheets.Count
    
38.             .AddItem ThisWorkbook.Sheets(i).Name
    
39.          Next
    
40.     End With
    
41. End Sub
    
42. 
    

复制代码

最佳答案

月排行榜 / 总排行榜

爱疯

2016-9-23 16:44

Sub tjlpp2()
'    On Error Resume Next
'    Application.CommandBars("row").Controls("我的菜单").Delete
'    On Error GoTo 0

    Dim pp, pp1, pp2, i
    Set pp = Application.CommandBars("row").Controls.Add(Type:=msoControlPopup, before:=1, temporary:=True)
    With pp
        .Caption = "我的菜单"
        .BeginGroup = True
        .Visible = True
        .Enabled = True
    End With

    Set pp1 = pp.Controls.Add(before:=1)
    With pp1
        .Caption = "移动工作表"
        .FaceId = 12
        .Style = msoButtonIconAndCaption
        '        .OnAction = "你好"
    End With

    Set pp1 = pp.Controls.Add(before:=2)
    With pp1
        .Caption = "剪切工作表"
        .FaceId = 12
        .Style = msoButtonIconAndCaption
        '        .OnAction = "你好"
    End With
    Set pp1 = pp.Controls.Add(Type:=msoControlPopup, before:=3)
    With pp1
        .Caption = "复制工作表"
        '        .BeginGroup = True    '添加分组线
        '     .OnAction = "选取工作表" '指定要运行的宏
        '        .Width = 100
        '        .DropDownWidth = 70
        '        .Enabled = True
        '        .Visible = True
        '        For i = 1 To Sheets.Count
        '            .AddItem Sheets(i).Name
        '        Next

        For i = 1 To Sheets.Count
            Set pp2 = pp1.Controls.Add(before:=1)
            With pp2
                .Caption = Sheets(i).Name
            End With
        Next i

    End With
End Sub



这样凑合，行吗？

跳转到最佳答案楼层

laoau138

给你回一贴， office 2007   不好用，   果断放弃用   office 2010

today0427

我准备直接2016，反正就是要接受新事物，干脆一步到位

爱疯

我没16，试了下，只03可以（看到组合框）。

http://club.excelhome.net/thread-1133619-1-1.html
看了这个，加了.clear，还是看不到。（新建控件的条目数，来就为空嘛）

我猜，是不是微软觉得右键菜单用组合框，好像并不好看，价值不大，07后就不显示了（但没禁用，并加以说明）

爱疯

Sub tjlpp2()
'    On Error Resume Next
'    Application.CommandBars("row").Controls("我的菜单").Delete
'    On Error GoTo 0

    Dim pp, pp1, pp2, i
    Set pp = Application.CommandBars("row").Controls.Add(Type:=msoControlPopup, before:=1, temporary:=True)
    With pp
        .Caption = "我的菜单"
        .BeginGroup = True
        .Visible = True
        .Enabled = True
    End With

    Set pp1 = pp.Controls.Add(before:=1)
    With pp1
        .Caption = "移动工作表"
        .FaceId = 12
        .Style = msoButtonIconAndCaption
        '        .OnAction = "你好"
    End With

    Set pp1 = pp.Controls.Add(before:=2)
    With pp1
        .Caption = "剪切工作表"
        .FaceId = 12
        .Style = msoButtonIconAndCaption
        '        .OnAction = "你好"
    End With
    Set pp1 = pp.Controls.Add(Type:=msoControlPopup, before:=3)
    With pp1
        .Caption = "复制工作表"
        '        .BeginGroup = True    '添加分组线
        '     .OnAction = "选取工作表" '指定要运行的宏
        '        .Width = 100
        '        .DropDownWidth = 70
        '        .Enabled = True
        '        .Visible = True
        '        For i = 1 To Sheets.Count
        '            .AddItem Sheets(i).Name
        '        Next

        For i = 1 To Sheets.Count
            Set pp2 = pp1.Controls.Add(before:=1)
            With pp2
                .Caption = Sheets(i).Name
            End With
        Next i

    End With
End Sub



这样凑合，行吗？

today0427

爱疯 发表于 2016-9-23 16:43
我没16，试了下，只03可以（看到组合框）。

http://club.excelhome.net/thread-1133619-1-1 ...

我刚把兰版写的那个也试了试在我的2016，确实没显示，你解释的有道理，因为我也没弄清楚有popup了为什么还要用combobox，我倒不是一定要让它显示出来，就是我明明觉得自己没写错而不能正常显示，找不到原因我百爪挠心啊！[em01]谢谢亲帮我解决了疑难！

爱疯

希望能找到官方的帮助，那样就死心塌地了。。。

today0427

爱疯 发表于 2016-9-23 19:26
希望能找到官方的帮助，那样就死心塌地了。。。

恩就是，你就是官方！[em20]

爱疯

today0427 发表于 2016-9-23 20:29
恩就是，你就是官方！

和大家一样，我也是来学习的 ，

所以必须声明我是官方。。。。打酱油的！

laoau138

today0427 发表于 2016-9-23 13:10
我准备直接2016，反正就是要接受新事物，干脆一步到位

VBA把单元格改数组

http://www.excelpx.com/thread-424668-1-1.html