Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Custom commandbar, submenu questions
1. When I added the code below to a test menu, the triangle that pops up
next to "Error" (to indicate a submenu) in the main menu shows up on the line below the text rather than on the same line as the text. I'm sure there is something simple that I am missing. Any ideas 2. In the sub Check_Errors, I want to enable the "Review Errors" menu item, but cannot figure out the correct syntax to enable a submenus control. Set CmdBarSub = CmdBar.Controls.Add(Type:=msoControlPopup) With ctrl .Caption = "Error" End With Set ctrl = CmdBarSub.Controls.Add(Type:=msoControlButton) With ctrl .Caption = "Check Errors" .OnAction = "Check_Errors" End With Set ctrl = CmdBarSub.Controls.Add(Type:=msoControlButton) With ctrl .Caption = "Review Errors" .OnAction = "Review_Errors" .Enabled = False End With -- Don''t forget to rate the post if it was helpful! Email address is not valid. Please reply to newsgroup only. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Custom commandbar, submenu questions
I do not see the first problem.
Re enabling the control later. If you assign a Tag to the control you use it later: Assign Tag property: With ctrl .Caption = "Review Errors" .OnAction = "Review_Errors" .Enabled = False .Tag = "RevErrors" End With and later: CommandBars.FindControl(Tag:="RevErrors").Enabled = True -- Jim "Dale Fye" wrote in message ... | 1. When I added the code below to a test menu, the triangle that pops up | next to "Error" (to indicate a submenu) in the main menu shows up on the line | below the text rather than on the same line as the text. I'm sure there is | something simple that I am missing. Any ideas | | 2. In the sub Check_Errors, I want to enable the "Review Errors" menu item, | but cannot figure out the correct syntax to enable a submenus control. | | Set CmdBarSub = CmdBar.Controls.Add(Type:=msoControlPopup) | With ctrl | .Caption = "Error" | End With | | Set ctrl = CmdBarSub.Controls.Add(Type:=msoControlButton) | With ctrl | .Caption = "Check Errors" | .OnAction = "Check_Errors" | End With | Set ctrl = CmdBarSub.Controls.Add(Type:=msoControlButton) | With ctrl | .Caption = "Review Errors" | .OnAction = "Review_Errors" | .Enabled = False | End With | | -- | Don''t forget to rate the post if it was helpful! | | Email address is not valid. | Please reply to newsgroup only. |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Custom commandbar, submenu questions
Worked like a charm. Thanks.
-- Don''t forget to rate the post if it was helpful! Email address is not valid. Please reply to newsgroup only. "Jim Rech" wrote: I do not see the first problem. Re enabling the control later. If you assign a Tag to the control you use it later: Assign Tag property: With ctrl .Caption = "Review Errors" .OnAction = "Review_Errors" .Enabled = False .Tag = "RevErrors" End With and later: CommandBars.FindControl(Tag:="RevErrors").Enabled = True -- Jim "Dale Fye" wrote in message ... | 1. When I added the code below to a test menu, the triangle that pops up | next to "Error" (to indicate a submenu) in the main menu shows up on the line | below the text rather than on the same line as the text. I'm sure there is | something simple that I am missing. Any ideas | | 2. In the sub Check_Errors, I want to enable the "Review Errors" menu item, | but cannot figure out the correct syntax to enable a submenus control. | | Set CmdBarSub = CmdBar.Controls.Add(Type:=msoControlPopup) | With ctrl | .Caption = "Error" | End With | | Set ctrl = CmdBarSub.Controls.Add(Type:=msoControlButton) | With ctrl | .Caption = "Check Errors" | .OnAction = "Check_Errors" | End With | Set ctrl = CmdBarSub.Controls.Add(Type:=msoControlButton) | With ctrl | .Caption = "Review Errors" | .OnAction = "Review_Errors" | .Enabled = False | End With | | -- | Don''t forget to rate the post if it was helpful! | | Email address is not valid. | Please reply to newsgroup only. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How to Place a Check Mark Next to an Item in the Submenu of a Custom Menu | Excel Programming | |||
custom commandbar questions | Excel Programming | |||
Custom Commandbar | Excel Programming | |||
Value of ComboBox on Custom CommandBar | Excel Programming | |||
Add submenu to custom menu | Excel Programming |