Text Farbwechsel auf Button OHNE Select
01.05.2019 17:00:35
Dieter(Drummer)
wie muss mein Code lauten, damit ich kein "Select" verwende?
Sub Rot()
ActiveSheet.Shapes.Range(Array("Button 2")).Select
With Selection.Characters(Start:=1, Length:=1).Font
.ColorIndex = 3
End With
End Sub
Der Code färbt den Text ("Auge"), Schriftart Webdings, erzeugt mit Tasten Alt+078, z.B. in rot.
Anbei meine Musterdatei, Ellipsen rot, blau, schwarz, färben das "Auge" jeweils und das funktioniert, leider noch mit "Select".
Mit der Bitte um Codeänderung,
grüßt, Dieter(Drummer)
https://www.herber.de/bbs/user/129519.xlsm