making toggle button in xl menu

[tom taol]

i need to method making the xl menu button of toggle button type using
macro(vba).
here is the code, it does not working.

Set oMenu = Application.CommandBars(1). _
Controls.Add(Type:=msoControlButtonToggle, Before:=1)
With oMenu
.Caption = "test"
.Style = msoButtonIconAndCaptionBelow
.BeginGroup = True
End With


*** Sent via Developersdex http://www.developersdex.com ***

[Jim Thomlinson]

Why not just use the state property of a regular button (msoControlButton).
Thsi will show the button as being either depressed or not... (msoButtonUp or
msoButtonDown)

Application.CommandBars("ToolBarName").Controls("ControlName").State =
msoButtonDown

--
HTH...

Jim Thomlinson


"tom taol" wrote:

>
>
> i need to method making the xl menu button of toggle button type using
> macro(vba).
> here is the code, it does not working.
>
> Set oMenu = Application.CommandBars(1). _
> Controls.Add(Type:=msoControlButtonToggle, Before:=1)
> With oMenu
> .Caption = "test"
> .Style = msoButtonIconAndCaptionBelow
> .BeginGroup = True
> End With
>
>
> *** Sent via Developersdex http://www.developersdex.com ***
>