Listbox/ Rollbalken
28.01.2009 16:16:00
adrian
kann mir jmd. nettes erklären wie ich Listboxen die Eigenschaft zuweise, das deren scrollbalken (bei einer festgelgten größe der Listbox) bei zu hoher Anzahl der enthaltenen Einträge, beweglich sind!
sry, für den langen Satz =/
siehe Bsp.:
Sub AddingListBox(Stelle As Range, OEMNamen As Variant)
Dim i As Integer
With ActiveSheet
Set Objekt = .OLEObjects.Add(ClassType:="Forms.ListBox.1", Left:=Stelle.Left, _
Top:=Stelle.Top, Width:=Stelle.Width, Height:=Stelle.Height)
Set LB = Objekt.Object
With LB
Objekt.Name = "ODMList" & ActiveSheet.OLEObjects.Count
.IntegralHeight = False
.Width = 120
.Height = 50
.TextAlign = fmTextAlignCenter
.BorderStyle = fmBorderStyleSingle
.ListStyle = fmListStylePlain
.Font = "Georgia"
.Font.Bold = True
.Font.Size = 16
.SpecialEffect = fmSpecialEffectFlat
.MultiSelect = fmMultiSelectSingle
.Shadow = True
For i = 0 To 3
If OEMNamen(i) "" Then
.AddItem OEMNamen(i)
End If
Next
End With
End With
End Sub
Diese Listbox hat zwar einen Rollbalken, aber er bewegt sich nicht =(
Generell kann man ja in einer LB nicht rollen....oder?!
lg
adrian