Shape-Objekte formatieren ???

Hallo zusammen,
ich habe ein kleines Problem bei der Formatierung von selbstgebauten Auswahlbuttons.
Nach dem draufklicken soll sich der jeweilge Button verfärben und so die Auswahl signalisieren.
Das mit der Farbe geht auch, nur bei der Änderung der Schriftfarbe bekomme ich eine Fehlermeldung.
Also alles, was in dem unten stehenden Code mit .Fill beginnt funktioniert, alles was mit .Font beginnt produziert einen Fehler. Könnt Ihr mir bitte bei der korrekten Schreibweise behilflich sein ?
With ActiveSheet.Shapes.Range(Array("AutoShape 975", "AutoShape 976", _
"AutoShape 977", "AutoShape 978"))
.Fill.Visible = msoTrue
.Fill.ForeColor.SchemeColor = 22
.Fill.BackColor.SchemeColor = 9
.Fill.TwoColorGradient msoGradientHorizontal, 3
.Font.ColorIndex = xlAutomatic
.Font.Underline = xlUnderlineStyleNone
.Font.Size = 11
End With
Vielen Dank im Voraus.
Gruß
Stefan

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo
Dein VBA-Status interessiert mich nicht, wenn du solche Codes mit Shape-Array's hier reinstellst.
Auch entbindet dein VBA -Status dich nicht, dein Gehirn einzuschalten und nachzudenken :-)
Ich habe dich auch darauf hingewiesen, dass es um das FETT-Geschriebene in meinem Beitrag geht.
Wenn du wie in deinem Beispiel nur mit ".Font" arbeitest, weiss EXCEL doch nicht was es machen soll, d.h. WELCHEN Text es verändern soll. Ausserdem kann es das Object so gar nicht ansprechen. Dies funktioniert eben nur mit Select, wenn du die Farbe global verändern willst
With ActiveSheet.Shapes.Range(Array("AutoShape 975", "AutoShape 976", _
"AutoShape 977", "AutoShape 978"))
.Fill.Visible = msoTrue
.Fill.ForeColor.SchemeColor = 22
.Fill.BackColor.SchemeColor = 9
.Fill.TwoColorGradient msoGradientHorizontal, 3
.Characters(Start:=1, Length:=17).Font.ColorIndex = xlAutomatic
.Characters(Start:=1, Length:=17).Font.Underline = xlUnderlineStyleNone
.Characters(Start:=1, Length:=17).Font.Size = 11
End With
oder etwas einfacher vielleicht
With ActiveSheet.Shapes.Range(Array("AutoShape 975", "AutoShape 976", _
"AutoShape 977", "AutoShape 978"))
.Fill.Visible = msoTrue
.Fill.ForeColor.SchemeColor = 22
.Fill.BackColor.SchemeColor = 9
.Fill.TwoColorGradient msoGradientHorizontal, 3
With .Characters(Start:=1, Length:=17)
.Font.ColorIndex = xlAutomatic
.Font.Underline = xlUnderlineStyleNone
.Font.Size = 11
End With
End With
Wenn es um die globale Textfarbe für den gesamten Text in der Box geht, kann man das auch so lösen
With ActiveSheet.Shapes.Range(Array("AutoShape 975", "AutoShape 976", _
"AutoShape 977", "AutoShape 978"))
.Fill.Visible = msoTrue
.Fill.ForeColor.SchemeColor = 22
.Fill.BackColor.SchemeColor = 9
.Fill.TwoColorGradient msoGradientHorizontal, 3
With .OLEFormat.Object
.Font.ColorIndex = xlAutomatic
.Font.Underline = xlUnderlineStyleNone
.Font.Size = 11
End With
End With
Gruss Rainer

Beliebteste Forumthreads (12 Monate)

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread