Sub XXXscrap()
Dim XXX As CommandBarPopup Dim scrap As CommandBarPopup Dim about As CommandBarControl
Dim finderror As CommandBarControl Dim cleanup As CommandBarControl Dim updatascrap As CommandBarControl
‘菜单栏出现公司名称 Set XXX = Application.CommandBars("Worksheet Menu Bar").Controls.Add(Type:=msoControlPopup) XXX.Caption = "XXX公司"
‘点击XXX公司，出现两个子项 Set scrap = XXX.CommandBar.Controls.Add(Type:=msoControlPopup) scrap.Caption = "Scrap"
Set about = XXX.CommandBar.Controls.Add(Type:=msoControlButton, ID:=2950) about.Caption = "About" about.OnAction = "abouttony"
‘点击scrap，出现三个子项 Set cleanup = scrap.CommandBar.Controls.Add(Type:=msoControlButton) cleanup.Caption = "Clean up data" cleanup.OnAction = "cleanuptony"
Set finderror = scrap.CommandBar.Controls.Add(Type:=msoControlButton) finderror.Caption = "Find error data" finderror.OnAction = "finderrortony"
Set updatascrap = scrap.CommandBar.Controls.Add(Type:=msoControlButton) updatascrap.Caption = "Updata Scrap" updatascrap.OnAction = "updatascraptony"
End Sub
