Hallo liebe Excel-Experten,
ich verwende eine Schaltfläche, um ein Makro zu starten. Dieser Schaltfläche sind zwei Makros (mit dem zweiten mache ich das erste rückgängig) zugewiesen. Um dies für fremde Anwender optisch klarer hervorzuheben, möchte ich, daß die Schaltfläche für das erste Makro hellgrau und für das zweite Makro dunkelgrau erscheint und der Text dann kursiv angezeigt wird.
Mit anderen Worten, wie bekomme ich ein und dieselbe Schaltfläche unterschiedlich formatiert?
Besten Dank im voraus,
Raúl
Hallo Raúl,
Mit folgender Befehlsfolge kannst Du die Eigenschaften der Schaltfläche(Button) umschalten. Zeilen mit Eigenschaften, die du nicht umschalten möchtest läßt Du einfach weg.
Private Sub CommandButton2\_Click()
Const hellgrau = &HE0E0E0
Const dunkelgrau = &H808080
'erforderliche Hexadezimalwerte für die Farben kann man ablesen,
'wenn man unter Eigenschaften für die Schaltfläche die Farben einstellt.
With CommandButton2
If .BackColor = hellgrau Then
.Caption = "Dunkelgrau"
.BackColor = dunkelgrau
.Font.Name = "Arial"
.Font.Bold = True
.Font.Italic = False
.Font.Size = 12
.ForeColor = &H0 'schwarz
' Befehle für hellgrau
Else
.Caption = "Hellgrau"
.BackColor = hellgrau
.Font.Name = "Arial"
.Font.Bold = True
.Font.Italic = True
.Font.Size = 12
.ForeColor = &H404040 'dunkelgrau
' Befehle für dunkelgrau
End If
End With
End Sub
Damit es beider Ausführung der Behle keine Probleme gibt, solltest Du für den Button unter Eigenschaften „TakeFocusOnClick“ auf „False“ setzen.
Gruß
Franz
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]