Gruppierte Shapes übernehmen die Farbe der Ebene nicht

Hallo kimko,

bitte wende dich an TechNet.
Die Mitarbeiter können Dir mit dieser Frage weiterhelfen.

Hast du andere Fragen, stehen wir gerne zur Verfügung. Einfach wieder melden.

Vielen Dank und liebe Grüße

Kyle

Es spielt keine Rolle ob die Diagramme gruppiert sind oder nicht, sie sind immer noch in der ChartObjects-Collection einzeln zu finden.

Und bei einem Shape bekommst Du über die GroupItems Eigenschaft ein GroupShapes-Objekt zurück, das die einzelnen Formen in der angegebenen Gruppe darstellt.

Was willst Du denn eigentlich machen?

Andreas.

Hallo,

es gibt auch noch die Farben im MsoThemeColorIndex.

Das heißt ich kann mit

shape.Fill.BackColor.ObjectThemeColor = Microsoft.Office.Core.MsoThemeColorIndex.msoThemeColorBackground1

die gewünschte Farbe auf ein Shape anwenden.

ABER: Wie kann ich die einzelnen Farben sezten???

Bei dem Befehl Microsoft.Office.Core.MsoThemeColorIndex.msoThemeColorText1 = 255 ist VB der Meinung, der Farbe könne keine Konstante zugewiesen werden.
Welches Puzzleteilchen fehlt mir da noch?
DankeOliver

Hallo Andreas,



die Shapes sind IMO nur mit RGB-Farben einzufärben. Dann könntest du es mal so probieren für einen Wert in G1 und einem Shape, das bei dir "Grafik1" heißt.



Sub Test()

Dim Farbe As Variant

Select Case Range("G1").Value

Case Is < 50

Farbe = RGB(150, 150, 0)

Case Is < 500

Farbe = RGB(0, 150, 150)

Case Is > 1000

Farbe = RGB(250, 0, 0)

End Select

ActiveSheet.Shapes("Grafik1").Select

With Selection.ShapeRange.Fill

.ForeColor.RGB = Farbe

.Transparency = 0.8

End With

End Sub



Du könntest es auch in ein Worksheet_Change-Ereignis packen, dass sich Grafik automatisch bei Zelländerung die Farbe ändert.



Mit freundlichen Grüßen

Claus

Hallo,

in unseren Vorlagen sind teilweise die Schriftfarben mal umformatiert worden auf "automatisch".

Sie sollen aber grundsätzlich die Farbe der übergeordneten Formatvorlage (hier "Fliesstext", meist "Textkörper") übernehmen.

mit "übergeordneter Formatvorlage" meinst du die Basis-Formatvorlage - die Formatvorlage, auf der die anderen Formatvorlagen basieren?

Das lässt sich aber nicht mehr zurückstellen, das Fabauswahlfeld kennt "keine Farbe" nicht.

Ändere die betroffenen Formatvorlagen, indem du darin jeweils die Schriftfarbe der zugehörigen Basis-Formatvorlage auswählst. Damit ist die Verknüpfung wieder hergestellt.

Viele Grüße

Lisa

Erstmal danke für die Antwort.

(Ja, "übergeordnete Formatvorlage" meint die Formatforlage auf die unsere Formatvorlage für Aufzählungen basiert. Bei uns "Fliesstext", meist "Textkörper" oder "Standard".)

Sorry, ich habe vergessen zu erwähnen, es geht nicht um die Farbe des "normalen" Textes, sondern um die Farbe von Aufzählungszeichen (oder die Nummer, Zahl...) welche Bestandteil der Formatvorlage sind.

Diese formatiere ich ja zunächst über den Listenbutton im Ribbon.

Dort sind sie ursprünglich mit "keiner Farbe" definiert, und übernehmen dann die Farbe der Absatzformatvorlage. Bis man halt 1x eingegriffen hat...

Das Prinzip, die gleiche Einstellung wie bei übergeordneten Formatvorlage 1x wieder manuell zuzuweisen um danach die Vererbung wieder in Gang zu setzen, funktioniert bei Absatzformatvorlagen, aber eben nicht bei der Farbe für die Aufzählungszeichen (die
dann Bestandteil der Absatzformatvorlage sind)!