[已解决]创建菜单及隐藏代码问题

jiangslly

Dim huizong  As CommandBarPopup
   Dim jisuangongzi As CommandBarControl
   Dim scgzt As CommandBarControl
   With Application.CommandBars("worksheet menu bar")
      .Reset
  Set huizong = .Controls.Add(Type:=msoControlPopup)

With huizong
         .Caption = "汇总(&s)"
         .BeginGroup = True
上面是我建菜单的代码，
Private Sub Worksheet_Activate()
  Application.CommandBars("汇总(&s)").Visible = True
End Sub
这是我在工作表中要显示菜单的代码，但CommandBars("汇总(&s)").Visible这里有问题，请问怎么修改？谢谢

最佳答案

月排行榜 / 总排行榜

zjdh

2011-8-16 09:54

1. Private Sub Worksheet_Activate()
   
2. Application.CommandBars("Worksheet menu bar").Controls("汇总(&s)").Visible = True
   
3. End Sub
   

复制代码

跳转到最佳答案楼层

zjdh

1. Private Sub Worksheet_Activate()
   
2. Application.CommandBars("Worksheet menu bar").Controls("汇总(&s)").Visible = True
   
3. End Sub
   

复制代码