View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
RB Smissaert RB Smissaert is offline
external usenet poster
 
Posts: 2,452
Default remove horizontal scrollbar combobox

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