Question

VBA中怎样生成2级命令菜单

Private Sub Workbook_Open()
Call AutoOpen
End Sub
模块中：
Dim cbar As CommandBar
Dim cCtrol As CommandBarControl
Dim cmd As CommandBarButton
Sub AutoOpen()
Set cbar = Application.CommandBars.Add(Name:="CAL-Lab", Position:=msoBarTop, MenuBar:=False, Temporary:=True)
Set cCtrol = cbar.Controls.Add(Type:=msoControlPopup)
With cCtrol
.caption = "CHeck"
Set cmd = cCtrol.Controls.Add(1)
With cmd
.Style = msoButtonIconAndCaption
.caption = "SetDMMVoltage"
.FaceId = 0
.Tag = "d2"
.onAction = "SetVoltage"
End With
End With
End Sub
现在想实现在.caption = "SetDMMVoltage"的菜单下边在生成一个2级菜单.caption = "SetDCVoltage"和caption = "SetACVoltage"－－－请高手指点。。分数可以+到很好哈。。。

Answer 1

整整1个小时裤哪销，通过研究“胡游List”工具栏得到启发
测试通过
模块中：

Dim cbar As CommandBar
Dim cCtrol As CommandBarControl
Dim cmd1 As CommandBarControl
Dim cmd As CommandBarButton
Sub AutoOpen()
Set cbar = Application.CommandBars.Add(Name:="CAL-Lab7", Position:=msoBarTop, MenuBar:=False, Temporary:=True)
Set cCtrol = cbar.Controls.Add(Type:=msoControlPopup)
With cCtrol
.Caption = "CHeck"
End With
Set cmd1 = cCtrol.Controls.Add(Type:=msoControlPopup)
With cmd1
.Caption = "缓凳测试"
End With
Set cmd = cmd1.Controls.Add(1)
With cmd
.Style = msoButtonIconAndCaption
.Caption = "SetDMMVoltage"
.FaceId = 0
.Tag = "d2"
.OnAction = "SetVoltage"
End With

End Sub

哈哈，记得加分哦！

Answer 2

没有经验，关注学习一下。