ComboBox inSL

12/03/2009 - 13:53 von Ralf Schollmeyer | Report spam
Hallo NG,
kann man zur Auswahl bzw Eingabe bestimmter Werte ein Kobinationsfeld bzw
Textfeld in die Symbolleiste integrieren?
(zB wie Schriftart und Schriftgröße)
MfG
Ralf
 

Lesen sie die antworten

#1 Melanie Breden
12/03/2009 - 14:37 | Warnen spam
Hallo Ralf,

"Ralf Schollmeyer" schrieb:
kann man zur Auswahl bzw Eingabe bestimmter Werte ein Kobinationsfeld bzw
Textfeld in die Symbolleiste integrieren?
(zB wie Schriftart und Schriftgröße)



hier mal ein Beispiel:

Public Sub AddBarCombo()
Dim cmdBar As CommandBar
Dim cmdBarCbo As CommandBarComboBox

' Evtl. vorhandene Leiste löschen
On Error Resume Next
Application.CommandBars("MyBar").Delete
On Error GoTo 0

Set cmdBar = Application.CommandBars.Add(Name:="MyBar", Temporary:=True)
cmdBar.Visible = True

' Dropdown-Menü erstellen
Set cmdBarCbo = cmdBar.Controls.Add(Type:=msoControlComboBox)
With cmdBarCbo
.Caption = "Mein Kombinationsfeld"
.TooltipText = "Farbe auswàhlen"
.DropDownLines = 5
.DropDownWidth = 70
.AddItem "Schwarz": .AddItem "Weiß": .AddItem "Rot"
.AddItem "Grün": .AddItem "Blau": .AddItem "Gelb"
.OnAction = "Makro1"
End With
End Sub


Mit freundlichen Grüssen
Melanie Breden

- Microsoft MVP für Excel -
www.melanie-breden.de

Ribbon-Programmierung für Office 2007 http://tinyurl.com/59awla

Ähnliche fragen