Hallo zusammen,
ich habe eine Frage und benötige Hilfe. Wenn sich jemand von euch erbarmen könnte mir weiter zu helfen?
Ich habe drei Rectangles, welche jeweils ein anderes Makro ausführen. Dies klappt soweit auch. Ich benötige eine Funktion, bei der die Schriftart in dem Rechteck fett wird, wenn man draufgeklickt hat.
Bedeutet: In Abhängigkeit von der Auswahl des Rechtecks soll der entsprechende Text des Rechtecks in fetter Schriftfarbe erscheinen.
Ich hab ein bisschen rumexperimentiert. und folgenden Code aus dem Netz verwendet.
With ActiveSheet.Shapes("Rectangle 1")
.Fill.ForeColor.SchemeColor = 6
If .Fill.Visible = msoFalse Then
.Fill.Visible = msoTrue
Else
.Fill.Visible = msoFalse
End If
Der Code färbt mir das Rechteck in rosa ein, wenn man draufklickt. Wenn man nochmal draufklickt wird die Farbe wieder entfernt. Ist allerdings nicht so ganz das was ich brauche. Ich weiß leider nicht wie ich hier weiter komme. Könnte mir jemand weiterhelfen?
Ich würde mich sehr freuen, find absolut keine brauchbare Lösung.
|