Frage zu CommandBars
22.11.2005 15:58:36
ray
ich habe mir in der symbolleiste per makro folgende combobox erstellt.
Wie kann ich jetzt einstellen, daß 30 Zeilen/Einträge aufgeblättert werden?
Sub leiste2()
Set mybar = CommandBars("rs Toolbar")
Set mycontrol = mybar.Controls.Add(Type:=msoControlDropdown, ID:=1)
With mycontrol
.BeginGroup = False
.Caption = "Make Report" 'shortcut
.AddItem "Texte", 1
.AddItem "Br persönlich", 2
.AddItem "a anrufen", 3
.AddItem "S persönlich", 4
.AddItem "ARGE bezahlt zukünftig", 5
.AddItem "ARGE hat Bezahlung zugesagt", 6
.OnAction = "Start"
End With
End Sub
Viele Grüße aus dem jetzt dunklen Hamburg
ray