Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Bar placement

0 views
Skip to first unread message

Beto

unread,
Jan 14, 2004, 2:31:54 PM1/14/04
to
Hi, is there a way to control where a newly added bar is going to be
exactly placed. I know you can put it on top, bottom, left, right or
floating... but is there any way to place it besides another existing
toolbar? Right now, when I choose Top, it add's a new line of toolbars
when there is plenty of space to the right of the existing toolbars.

Regards,
--
Beto
Reply: Erase between the dot (inclusive) and the @.
Responder: Borra la frase obvia y el punto previo.

Rob van Gelder

unread,
Jan 15, 2004, 2:58:54 AM1/15/04
to
Beto,

My custom commandbar in this example has a Name of "Rob".

Sub testit()
Dim cbrMy As CommandBar
Dim cbr As CommandBar, lngMaxRowIndex As Long, lngMaxLeft As Long

Set cbrMy = CommandBars("Rob")

For Each cbr In CommandBars
If cbr.Visible And cbr.Position = msoBarTop And Not (cbr.Index =
cbrMy.Index) Then
If cbr.RowIndex > lngMaxRowIndex Then
lngMaxRowIndex = cbr.RowIndex
lngMaxLeft = cbr.Left + cbr.Width
ElseIf cbr.RowIndex = lngMaxRowIndex And cbr.Left + cbr.Width >
lngMaxLeft Then
lngMaxLeft = cbr.Left + cbr.Width
End If
End If
Next

cbrMy.Position = msoBarTop
cbrMy.RowIndex = lngMaxRowIndex
cbrMy.Left = lngMaxLeft
End Sub


Rob


"Beto" <beto_z_o....@hotmail.com> wrote in message
news:bu41od$cha8q$1...@ID-95421.news.uni-berlin.de...

Beto

unread,
Jan 15, 2004, 12:15:57 PM1/15/04
to
Rob van Gelder wrote:

> Beto,
>
> My custom commandbar in this example has a Name of "Rob".
>
> Sub testit()
> Dim cbrMy As CommandBar
> Dim cbr As CommandBar, lngMaxRowIndex As Long, lngMaxLeft As Long
>
> Set cbrMy = CommandBars("Rob")
>
> For Each cbr In CommandBars
> If cbr.Visible And cbr.Position = msoBarTop And Not (cbr.Index =
> cbrMy.Index) Then
> If cbr.RowIndex > lngMaxRowIndex Then
> lngMaxRowIndex = cbr.RowIndex
> lngMaxLeft = cbr.Left + cbr.Width
> ElseIf cbr.RowIndex = lngMaxRowIndex And cbr.Left + cbr.Width >
> lngMaxLeft Then
> lngMaxLeft = cbr.Left + cbr.Width
> End If
> End If
> Next
>
> cbrMy.Position = msoBarTop
> cbrMy.RowIndex = lngMaxRowIndex
> cbrMy.Left = lngMaxLeft
> End Sub

Great piece of code. This should get me started to my final needs.

Thanks!


--
Beto
Reply: Erase between the dot (inclusive) and the @.
Responder: Borra la frase obvia y el punto previo.

>

0 new messages