Schaltfläche einfärben?
Hubert Scheidgen
wie kann ich eine mit der Formularleiste eingefügte
Schaltfläche einfärben?
Ich meine nicht den Text der Fläche sondern die Schaltfläche selber.
Am Besten wärs noch, wenn sich die Farbe bei Eintreten einer
bestimmten Bedingung automatisch verfärbt.
Danke für Eure Hilfe im Voraus
Gruß
Hubert
Renzo Lazzarini
Du kannst Command Buttons, die du mit der Formularleiste einfügst, nicht
einfärben. Wenn Du diese Eigenschaft auch beeinflussen willst, musst Du den
Command Button Control aus der Steuerelement-Toolbox in Dein Formular
einfügen.
Dies gilt auch für andere Controls wie Kombinationsfeld u.a.
Die Steuerelement-Toolbox wird folgendermassen aktiviert.
1) Rechte Maustaste in Menuzeile klicken und Steuerelement-Toolbox anwählen.
2) Nun kannst Du den Control auswählen und in ein Formular einbauen.
Wenn nun die Schaltfläche markiert ist, erhälst Du durch drücken der rechten
Maustaste ein Popupmenu auf welchem eine Option Eigenschaften anwählbar ist.
In dieser Eigenschaftsliste, kannst Du nun die Eigenschaft Backcolor
suchen. Wenn Du nun das kleine Quadrat doppelclickst erscheinen 2 Register.
Wähle Palette und du bist am Ende deiner Reise.
Gruss Renzo
PS: (Die Frage, die Du mir per e-mail gestellt hast, kann ich noch nicht
beantworten.)
Hubert Scheidgen <1192...@onlinehome.de> schrieb in im Newsbeitrag:
39075914...@onlinehome.de...
Hubert Scheidgen
etwas ähnlches ahnte ich bereits.
Danke.
Gruß
hubert
Renzo Lazzarini schrieb:
Michael Gmeiner
das klappt nur ab Excel 97 aufwärts Schaltflächen, die Du nicht mit der
Formular- sondern mit der Steuerelementleiste eingefügt hast.
Manuell geht das, wenn du den Entwurfsmodus aktiviert hast und die
Schaltfläche mit der rechten Maustaste anklickst. Dann wählst Du
"Eigenschaften". Dann erschein ein Fenster mit den zur Verfügung stehenden
Eigenschaften des Steuerelements. Mit der Eigenschaft "BackColor" kannst Du
die Hintergrundfarbe ändern.
Das mit der Bedingung mußt Du per Code erzeugen. Angenommen die Schaltfläche
soll blau werden, wenn in Zelle C1 der Wert 5 steht, ansonsten soll sie gelb
sein:
Private Sub CommandButton1_Click()
If Range("C1").Value = 5 Then
CommandButton1.BackColor = vbBlue
Else
CommandButton1.BackColor = vbYellow
End If
End Sub
Gruß
Michael