remove horizontal scrollbar combobox

[RB Smissaert]

On a Excel VBA userform I have a Combobox holding a
number of years as long numbers in the format yyyy.
These number are in a 1-D array.
The combobox properties are set in the UserForm initialize event like this,
showing only the essential bits:

Private Sub UserForm_Initialize()

Dim i As Long

With MonthView1
.Appearance = cc23D
End With

For i = 1 To 111
arrYears(i) = Year(Date) - (101 - i)
Next

With ComboBox1
.List = arrYears
.Value = Year(Date)
.ListIndex = 100
.ListWidth = 48
End With

End Sub

Now when I click the combobox dropdown button the list will have a
horizontal scrollbar, which I don't need
and which looks messy. I am not sure why it shows as all the years show
fully and the width is only 4 characters.
I even tried get rid of it with the Windows API, but no luck yet.
How do I do this?


RBS

 

[sheeba]

Try this:

Check the properties of the combobox for ColumnWidthe and write the
width of the combo box there..

 

[RB Smissaert]

Thanks. That was indeed the one I needed.
Quite a bit simpler than using the API ...

RBS

 

[Tom Ogilvy]

Especially since the MSforms controls can't be manipulated with the Windows
API since they are windowless.

 

[RB Smissaert]

That is what I thought, but I think I managed to get the hwnd.

RBS