![]() |
How to make button spacer |
Post Reply ![]() |
Author | |
blockwood ![]() Groupie ![]() Joined: 23 March 2004 Status: Offline Points: 45 |
![]() ![]() ![]() ![]() ![]() Posted: 23 March 2004 at 1:50pm |
How do I make a "spacer" between buttons which in Office2003 looks like an indented vertical line between buttons.
|
|
![]() |
|
Bjarne ![]() Newbie ![]() ![]() Joined: 30 December 2003 Location: Denmark Status: Offline Points: 28 |
![]() ![]() ![]() ![]() ![]() |
Hi Blockwood, I guess you mean a seperator. You can create that by the BeginGroup option. Example: Set mCtr = .Add(xtpControlButton, ID_PRINT, "Print") Regards, |
|
![]() |
|
SuperMario ![]() Admin Group ![]() ![]() Joined: 14 February 2004 Status: Offline Points: 18057 |
![]() ![]() ![]() ![]() ![]() |
The BeginGroup property needs to be set, see code below:
Dim ToolBar As CommandBar Set ToolBar = CommandBars.Add("Standard", xtpBarTop) With ToolBar.Controls .Add xtpControlButton, ID_FILE_NEW, "&New" .Add xtpControlButton, ID_FILE_OPEN, "&Open" Set Control = .Add( xtpControlButton, ID_FILE_SAVE, "&Save") Control.BeginGroup = True Set Control = .Add(xtpControlButton, ID_FILE_PRINT, "&Print") Control.BeginGroup = True Set Control = .Add(xtpControlButton, ID_HELP_ABOUT, "&About") Control.BeginGroup = True End With |
|
![]() |
|
Boyd ![]() Senior Member ![]() Joined: 08 December 2003 Location: United States Status: Offline Points: 285 |
![]() ![]() ![]() ![]() ![]() |
Just to follow up on Bjarne's post, setting 'BeginGroup' to True will create a vertical spacer BEFORE the control that has this property. In menu's, it appears above the control. In toolbars, it appears to the left of the control.
|
|
![]() |
|
blockwood ![]() Groupie ![]() Joined: 23 March 2004 Status: Offline Points: 45 |
![]() ![]() ![]() ![]() ![]() |
yes "separator" thx for the great responses and sorry for dumb question - i see now it was obviousl.
|
|
![]() |
|
Bjarne ![]() Newbie ![]() ![]() Joined: 30 December 2003 Location: Denmark Status: Offline Points: 28 |
![]() ![]() ![]() ![]() ![]() |
Hi Blockwood, |
|
![]() |
|
SuperMario ![]() Admin Group ![]() ![]() Joined: 14 February 2004 Status: Offline Points: 18057 |
![]() ![]() ![]() ![]() ![]() |
Blockwood,
We are happy to answer your questions ![]() |
|
![]() |
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 |