Bar placement

  • Thread starter Thread starter Beto
  • Start date Start date
B

Beto

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,

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
 
Rob said:
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
Click to expand...

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

Thanks!
 
Back
Top