ich tüftle schon eine Weile an folgendem Makro:
Private Sub CommandButton1_Click()
ActiveSheet.Shapes("Line 1").Line.ForeColor.SchemeColor = 2
ActiveSheet.Shapes("Line 5").Line.ForeColor.SchemeColor = 2
With ActiveSheet.Shapes("Text Box 6")
.Fill.ForeColor.SchemeColor = 8
.Line.ForeColor.SchemeColor = 10
.Font.ColorIndex = 1
End With
End Sub
es fuktioniert ales nur nicht die letzte Zeile für die Schriftfarbe.
Hat jemand eine Idee?
Gruß DieterL