Variable Toolbar

[Zurn]

I want to make a variable toolbar. Sometimes there are 4 charts possible, connected to 4 buttons. Sometimes 2 or 3.

Here my code

For iCH = 1 To numCHARTS
onAct = "MAKEchart" & iCH
'??????? how to do this ??????
'??Set MyButtonCHART & iCH ?? = .Controls.Add(Type:=msoControlButton)
With MyButtonvarCHART & iCH ...???
.Caption = "chart" & iCH
.Style = msoButtonCaption
.BeginGroup = True
'.OnAction = onAct
End With
Next iCH

Some help is always welcome. Thx

Zurn

[Bob Phillips]

Application.CommandBars.Add Name:="MyCharts", temporary:=True
With Application.CommandBars("MyCharts")
For iCH = 1 To numCHARTS
With .Controls.Add(Type:=msoControlButton)
.Caption = "chart" & iCH
.Style = msoButtonCaption
.BeginGroup = True
.OnAction = "MAKEchart" & iCH
End With
Next iCH
End With


--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"Zurn" <Zurn.25c1so_1143470402.3773@excelforum-nospam.com> wrote in message
news:Zurn.25c1so_1143470402.3773@excelforum-nospam.com...
>
> I want to make a variable toolbar. Sometimes there are 4 charts
> possible, connected to 4 buttons. Sometimes 2 or 3.
>
> Here my code
>
> For iCH = 1 To numCHARTS
> onAct = "MAKEchart" & iCH
> '??????? how to do this ??????
> '??Set MyButtonCHART & iCH ?? =
> Controls.Add(Type:=msoControlButton)
> With MyButtonvarCHART & iCH ...???
> Caption = "chart" & iCH
> Style = msoButtonCaption
> BeginGroup = True
> '.OnAction = onAct
> End With
> Next iCH
>
> Some help is always welcome. Thx
>
> Zurn
>
>
> --
> Zurn
> ------------------------------------------------------------------------
> Zurn's Profile:
http://www.excelforum.com/member.php...o&userid=14645
> View this thread: http://www.excelforum.com/showthread...hreadid=526740
>

[Zurn]

Thx Bob,

this saved me a lot of typing work...


Zurn