So far I have been able to determine how to create a
menubar and add a number of buttons and pop-ups
to it using VBA. That's all fine if all you want to do
is have a few tasks that can be done via a button.

Can someone send me a *simple* *clean* example
of how one adds buttons and pop-ups to a pop-up
that's on the menubar to form a "tree like" menu?
Something like:
[PopUp][[Button][Button][Button][Button]
[Button ]
[Button ]
[Popup ]---[Button]
[Button ] [PopUp]---[Button]
[Button ] [Button ] [Button]
[Button ] [Button ]
[Button ] [PopUp ]---[PopUp]---[Button]
[Button ] [Button ] [Button ] [Button ]
[Button ] [Button ] [Button ]

And so on.

Somehow, each popup has to know when a new level
is starting and when one is ending. Using the "with"
would seem logical but I can't find any examples that
show how it would be implemented.

Any and all help appreciated.

David Schrader

Visit

http://www.erlandsendata.no/english/...oadcommandbars

Its good


"David F. Schrader" wrote in message
...
So far I have been able to determine how to create a
menubar and add a number of buttons and pop-ups
to it using VBA. That's all fine if all you want to do
is have a few tasks that can be done via a button.

Can someone send me a *simple* *clean* example
of how one adds buttons and pop-ups to a pop-up
that's on the menubar to form a "tree like" menu?
Something like:
[PopUp][[Button][Button][Button][Button]
[Button ]
[Button ]
[Popup ]---[Button]
[Button ] [PopUp]---[Button]
[Button ] [Button ] [Button]
[Button ] [Button ]
[Button ] [PopUp ]---[PopUp]---[Button]
[Button ] [Button ] [Button ] [Button ]
[Button ] [Button ] [Button ]

And so on.

Somehow, each popup has to know when a new level
is starting and when one is ending. Using the "with"
would seem logical but I can't find any examples that
show how it would be implemented.

Any and all help appreciated.

David Schrader

Const cCommandBar = "MyCommandBar"

Sub Toolbar_OFF()
Dim bar As CommandBar

''' Delete the Commandbar if it already exists
For Each bar In Application.CommandBars
If bar.Name = cCommandBar Then bar.Delete
Next
End Sub

Sub Toolbar_ON()
Dim bar As CommandBar

Toolbar_OFF

Set bar = Application.CommandBars.Add(Name:=cCommandBar,
Position:=msoBarTop, Temporary:=True)

''' Popup
With bar.Controls.Add(Type:=msoControlPopup)
.Caption = "Cards"
With .CommandBar.Controls.Add(Type:=msoControlPopup)
.Caption = "Red Cards"
With .CommandBar.Controls.Add(Type:=msoControlButton)
.FaceId = 481
.Caption = "Heart"
.OnAction = ThisWorkbook.Name & "!Popup_Click"
.Parameter = "Heart"
End With
With .CommandBar.Controls.Add(Type:=msoControlButton)
.FaceId = 482
.Caption = "Diamond"
.OnAction = ThisWorkbook.Name & "!Popup_Click"
.Parameter = "Diamond"
End With
End With
With .CommandBar.Controls.Add(Type:=msoControlPopup)
.Caption = "Black Cards"
With .CommandBar.Controls.Add(Type:=msoControlButton)
.BeginGroup = True
.FaceId = 483
.Caption = "Spade"
.OnAction = ThisWorkbook.Name & "!Popup_Click"
.Parameter = "Spade"
End With
With .CommandBar.Controls.Add(Type:=msoControlButton)
.FaceId = 484
.Caption = "Club"
.OnAction = ThisWorkbook.Name & "!Popup_Click"
.Parameter = "Club"
End With
End With
End With

bar.Visible = True
End Sub

Sub Popup_Click()
With Application.CommandBars.ActionControl
MsgBox "You selected: " & .Parameter
End With
End Sub


--
Rob van Gelder - http://www.vangelder.co.nz/excel


"David F. Schrader" wrote in message
...
So far I have been able to determine how to create a
menubar and add a number of buttons and pop-ups
to it using VBA. That's all fine if all you want to do
is have a few tasks that can be done via a button.

Can someone send me a *simple* *clean* example
of how one adds buttons and pop-ups to a pop-up
that's on the menubar to form a "tree like" menu?
Something like:
[PopUp][[Button][Button][Button][Button]
[Button ]
[Button ]
[Popup ]---[Button]
[Button ] [PopUp]---[Button]
[Button ] [Button ] [Button]
[Button ] [Button ]
[Button ] [PopUp ]---[PopUp]---[Button]
[Button ] [Button ] [Button ] [Button ]
[Button ] [Button ] [Button ]

And so on.

Somehow, each popup has to know when a new level
is starting and when one is ending. Using the "with"
would seem logical but I can't find any examples that
show how it would be implemented.

Any and all help appreciated.

David Schrader

You might also want to take a look at John Walkenbach's Menu Maker, it
simplifies life http://www.j-walk.com/ss/excel/tips/tip53.htm

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Rob van Gelder" wrote in message
...
Const cCommandBar = "MyCommandBar"

Sub Toolbar_OFF()
Dim bar As CommandBar

''' Delete the Commandbar if it already exists
For Each bar In Application.CommandBars
If bar.Name = cCommandBar Then bar.Delete
Next
End Sub

Sub Toolbar_ON()
Dim bar As CommandBar

Toolbar_OFF

Set bar = Application.CommandBars.Add(Name:=cCommandBar,
Position:=msoBarTop, Temporary:=True)

''' Popup
With bar.Controls.Add(Type:=msoControlPopup)
.Caption = "Cards"
With .CommandBar.Controls.Add(Type:=msoControlPopup)
.Caption = "Red Cards"
With .CommandBar.Controls.Add(Type:=msoControlButton)
.FaceId = 481
.Caption = "Heart"
.OnAction = ThisWorkbook.Name & "!Popup_Click"
.Parameter = "Heart"
End With
With .CommandBar.Controls.Add(Type:=msoControlButton)
.FaceId = 482
.Caption = "Diamond"
.OnAction = ThisWorkbook.Name & "!Popup_Click"
.Parameter = "Diamond"
End With
End With
With .CommandBar.Controls.Add(Type:=msoControlPopup)
.Caption = "Black Cards"
With .CommandBar.Controls.Add(Type:=msoControlButton)
.BeginGroup = True
.FaceId = 483
.Caption = "Spade"
.OnAction = ThisWorkbook.Name & "!Popup_Click"
.Parameter = "Spade"
End With
With .CommandBar.Controls.Add(Type:=msoControlButton)
.FaceId = 484
.Caption = "Club"
.OnAction = ThisWorkbook.Name & "!Popup_Click"
.Parameter = "Club"
End With
End With
End With

bar.Visible = True
End Sub

Sub Popup_Click()
With Application.CommandBars.ActionControl
MsgBox "You selected: " & .Parameter
End With
End Sub


--
Rob van Gelder - http://www.vangelder.co.nz/excel


"David F. Schrader" wrote in message
...
So far I have been able to determine how to create a
menubar and add a number of buttons and pop-ups
to it using VBA. That's all fine if all you want to do
is have a few tasks that can be done via a button.

Can someone send me a *simple* *clean* example
of how one adds buttons and pop-ups to a pop-up
that's on the menubar to form a "tree like" menu?
Something like:
[PopUp][[Button][Button][Button][Button]
[Button ]
[Button ]
[Popup ]---[Button]
[Button ] [PopUp]---[Button]
[Button ] [Button ] [Button]
[Button ] [Button ]
[Button ] [PopUp ]---[PopUp]---[Button]
[Button ] [Button ] [Button ] [Button ]
[Button ] [Button ] [Button ]

And so on.

Somehow, each popup has to know when a new level
is starting and when one is ending. Using the "with"
would seem logical but I can't find any examples that
show how it would be implemented.

Any and all help appreciated.

David Schrader

To Bob, Rob, and "bimble,"

(One has to wonder why MS had to make it
quite so complex to accomplish what should
be what appears on the surface to be a simple
task.)

My thanks. I think, between all of the material
that the three of you have provided - if I can
swim back to the surface - I can make it work.

David


"Bob Phillips" wrote in message
...
You might also want to take a look at John Walkenbach's Menu Maker, it
simplifies life http://www.j-walk.com/ss/excel/tips/tip53.htm

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Rob van Gelder" wrote in message
...
Const cCommandBar = "MyCommandBar"

Sub Toolbar_OFF()
Dim bar As CommandBar

''' Delete the Commandbar if it already exists
For Each bar In Application.CommandBars
If bar.Name = cCommandBar Then bar.Delete
Next
End Sub

Sub Toolbar_ON()
Dim bar As CommandBar

Toolbar_OFF

Set bar = Application.CommandBars.Add(Name:=cCommandBar,
Position:=msoBarTop, Temporary:=True)

''' Popup
With bar.Controls.Add(Type:=msoControlPopup)
.Caption = "Cards"
With .CommandBar.Controls.Add(Type:=msoControlPopup)
.Caption = "Red Cards"
With .CommandBar.Controls.Add(Type:=msoControlButton)
.FaceId = 481
.Caption = "Heart"
.OnAction = ThisWorkbook.Name & "!Popup_Click"
.Parameter = "Heart"
End With
With .CommandBar.Controls.Add(Type:=msoControlButton)
.FaceId = 482
.Caption = "Diamond"
.OnAction = ThisWorkbook.Name & "!Popup_Click"
.Parameter = "Diamond"
End With
End With
With .CommandBar.Controls.Add(Type:=msoControlPopup)
.Caption = "Black Cards"
With .CommandBar.Controls.Add(Type:=msoControlButton)
.BeginGroup = True
.FaceId = 483
.Caption = "Spade"
.OnAction = ThisWorkbook.Name & "!Popup_Click"
.Parameter = "Spade"
End With
With .CommandBar.Controls.Add(Type:=msoControlButton)
.FaceId = 484
.Caption = "Club"
.OnAction = ThisWorkbook.Name & "!Popup_Click"
.Parameter = "Club"
End With
End With
End With

bar.Visible = True
End Sub

Sub Popup_Click()
With Application.CommandBars.ActionControl
MsgBox "You selected: " & .Parameter
End With
End Sub


--
Rob van Gelder - http://www.vangelder.co.nz/excel


"David F. Schrader" wrote in message
...
So far I have been able to determine how to create a
menubar and add a number of buttons and pop-ups
to it using VBA. That's all fine if all you want to do
is have a few tasks that can be done via a button.

Can someone send me a *simple* *clean* example
of how one adds buttons and pop-ups to a pop-up
that's on the menubar to form a "tree like" menu?
Something like:
[PopUp][[Button][Button][Button][Button]
[Button ]
[Button ]
[Popup ]---[Button]
[Button ] [PopUp]---[Button]
[Button ] [Button ] [Button]
[Button ] [Button ]
[Button ] [PopUp ]---[PopUp]---[Button]
[Button ] [Button ] [Button ] [Button ]
[Button ] [Button ] [Button ]

And so on.

Somehow, each popup has to know when a new level
is starting and when one is ending. Using the "with"
would seem logical but I can't find any examples that
show how it would be implemented.

Any and all help appreciated.

David Schrader