COMMAND BAR - can custom CB height be set???

[itr674]

Can a custom commandbar height be set? I tried using the following code to do it, but it does not work??<pre>Set DTTM_CB = CommandBars.Add
With DTTM_CB
.Name = "DTTM"
.Enabled = True
.Visible = True
.Height = 20 THIS DOES NOT APPEAR TO WORK ???
.Position = msoBarTop IF YOU USE .ROWINDEX IS THERE A NEED TO USE .POSITION??
.Left = 0
.RowIndex = CommandBars(1).RowIndex + 1 ' puts custom commandbar under the Windows Menu Bar
.Protection = msoBarNoCustomize ' + msoBarNoMove
End With</pre>
This message was edited by em on 2003-02-09 17:21

 

[dk]

Hi,

The commandbar's dimenstions are affected by the height of controls you place on it. For example, I modified your code to add a custom button to the commandbar with a height of 100. See what it does:-

Sub test()
    Dim DTTM_CB As CommandBar

    Dim cbButton As CommandBarButton

    On Error Resume Next
    CommandBars("DTTM").Delete
    On Error GoTo 0

    Set DTTM_CB = CommandBars.Add
    With DTTM_CB
        .Name = "DTTM"
        .Enabled = True
        .Visible = True


        .Position = msoBarTop   'IF YOU USE .ROWINDEX IS THERE A NEED TO USE .POSITION??
        .Left = 0
        .RowIndex = CommandBars(1).RowIndex + 1   '  puts custom commandbar under the Windows Menu Bar
        .Protection = msoBarNoCustomize   '  + msoBarNoMove

        Stop
        
        'Look at the commandbar in Excel.  It's height is a default height
        
        Set cbButton = .Controls.Add(msoControlButton)
        cbButton.Height = 100
        
        'Look now.  It's height has expanded to fit the button

    End With
End Sub

 

[itr674]

dk - thnaks will try that in a minute. Is there a way to make a custom commandbar wrap??

I just added a couple of buttons and the bar gives me the little arrows at the end saying there are buttons, but I like to show all the buttons ...

 

[rikrak]

em,

Excel2000:
View | Toolbars | Customize, select options tab, deselect option 2 "last used commands first" (not sure, i'm using Dutch version)

Does this help?

 

[itr674]

dk - rogggg on the bottom size, that worked.

rikrak - the custom bar still not wrapping, but I think last week I ran across something that saud I could wrap text on a button. If I can find it again that mat be a way to shorten the bar...