Add control to the Chart menu of "Chart Menu Bar" commandbar

  • Thread starter Thread starter Andrew
  • Start date Start date
A

Andrew

Can anyone help me to get the following to work? It works fine when
adding a button to the menus on the "Worksheet Menu Bar" (eg. replace
"Chart" with "File") but I can't seem to get it to work for the Chart
menu.

Sub AddCltToChartMenu()
Dim cbct As CommandBarControl
Set cbct = Application.CommandBars("chart").Controls.Add(msoControlButton)
cbct.Caption = "Test"
End Sub

Thanks,
Andrew
 
Sub AddCltToChartMenu()
Dim cbct As CommandBarControl
Dim cbPop As CommandBarPopup
Set cbPop = Application.CommandBars("Chart Menu Bar").Controls("&Chart")
Set cbct = cbPop.Controls.Add(msoControlButton)
cbct.Caption = "Test"
End Sub
 
Thanks Tom - that's excellent.

I suspected it was tied up with referencing the chart menu bar but
couldn't figure out how to reference it and add a control.
Referencing to the CommandBarPopup was the trick!

Thanks again,
Andrew
 
Back
Top