![]() |
BeginGroup At Expanding Menu |
Post Reply ![]() |
Author | |
corpcon ![]() Groupie ![]() Joined: 28 June 2007 Status: Offline Points: 70 |
![]() ![]() ![]() ![]() ![]() Posted: 17 December 2007 at 1:43am |
How do I begin a group starting at an expanding menu? In the attached image, I want a BeginGroup line to appear directly above "Options".
![]() The code I have in this segment is ...
AddButton .Controls, xtpControlButton, ID_TOOLS_USESAMPLEDATA, True
' << Begin group here >>
Set ControlOptions = .Controls.Add(xtpControlPopup, 0, "&Options", -1, False) AddButton ControlOptions.CommandBar.Controls, xtpControlButton, ID_OPTIONS_PERSONAL AddButton ControlOptions.CommandBar.Controls, xtpControlButton, ID_OPTIONS_GLOBAL
|
|
![]() |
|
ijwelch ![]() Senior Member ![]() Joined: 20 June 2006 Status: Offline Points: 262 |
![]() ![]() ![]() ![]() ![]() |
AddButton .Controls, xtpControlButton, ID_TOOLS_USESAMPLEDATA, True
' << Begin group here >>
Set ControlOptions = .Controls.Add(xtpControlPopup, 0, "&Options", -1, False) ControlOptions.BeginGroup=True AddButton ControlOptions.CommandBar.Controls, xtpControlButton, ID_OPTIONS_PERSONAL AddButton ControlOptions.CommandBar.Controls, xtpControlButton, ID_OPTIONS_GLOBAL
|
|
![]() |
Post Reply ![]() |
|
Tweet
|
Forum Jump | Forum Permissions ![]() You cannot post new topics in this forum You cannot reply to topics in this forum You cannot delete your posts in this forum You cannot edit your posts in this forum You cannot create polls in this forum You cannot vote in polls in this forum |