Shape Fill und Font Color übergeben
14.07.2004 08:28:34
Tomtom
Ich habe in meinem Sheet mittels mehrerer farblich formattierter "Shapes" die Möglichkeit geschaffen, durch Anklicken die selektierte Zelle entsprechend einzufärben (Hintergrund und Schrift):
Sub farbe_vergeben()
Selection.Cells.Interior.Color = ActiveSheet.Shapes(Application.Caller).Fill.ForeColor.RGB
Selection.Cells.Font.Color = ActiveSheet.Shapes(Application.Caller).TextFrame.Characters.Font.Color
End Sub
Wenn ich nun die Shapes gruppiere (um sie einfacher ein- und ausblenden zu können) funktioniert die zweite Zeile (Farbe des Font) nicht mehr! Die Fontfarbe wird dann nicht mehr vom Shape übernommen sondern automatisch schwarz.
Die Füllfarbe funktioniert nach wie vor...
Weiss jemand warum das so ist oder wie man das umgehen kann?
Grüsse Tomtom