Farbe in Diagramm ändern

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

ActiveChart.Legend.LegendEntries(2).Select ActiveChart.SeriesCollection(2).Select With Selection .MarkerStyle = 2 .MarkerSize = 6 End With With Selection.Format.Fill .Visible = msoTrue .ForeColor.ObjectThemeColor = msoThemeColorText1 .ForeColor.RGB = RGB(0, 176, 240) .ForeColor.TintAndShade = 0 .ForeColor.Brightness = 0 .Transparency = 0 .Solid End With

Hallo Hansueli,

Selection.Format.Fill

ist schon vorhanden, da alle anderen Änderungen umgesetzt werden. Allerdings nicht die Farbänderung/Vorgabe.
Und ja, das hab ich mit dem Makroaufzeichnung aufgenommen, versteh aber auch nicht was daran so schlimm seien soll. Den großen Plan hab ich von VBA auch nicht, hab ich aber auch nicht geschrieben.
Allerdings versteh ich jetzt nicht wirklich, wo da was "nichtssagend" dran seien soll!
Aber wenn es dich nervt, musst Du ja auch nicht auf Beiträge antworten.
Ansonsten kann eine gezielteres Nachfragen deinerseits alle Unklarheiten beseitigen.
Bisher wurde mir in diesem Forum von den Teilnehmern, die von VBA mehr verstehen wie ich, immer kompetent geholfen.
Aber Danke für dein Feedback.
Gruesse Thomas

Hallo Thomas,
Zitat: ..., da alle anderen Änderungen umgesetzt werden.
und wie kontrollierst du das? Setzt du alle Eigenschaften auf einen anderen Wert, wie den neuen, durch den Code zu ersetzenden?
Ich kann deinen Fehler nicht nachvollziehen und habe es nun an einem Diagramm mit deinem Code getestet. Stelle aber fest, dass z.B. der Befehl:

.ForeColor.ObjectThemeColor = msoThemeColorText1

völlig überflüssig ist, da er durch die darauffolgende (und bei dir 'nicht funktionierende') Codezeile wieder überschrieben wird. Das meine ich mit 'Aufzeichnung/Überarbeitung'. Denn wenn ich nur die Füllfarbe der Datenreihe ändern will, kicke ich alle aufgezeichneten anderen Eigenschaftsänderungen raus und lass nur noch die relevaten, d.h. die 'nicht funktionierende' stehen. In deinem Fall würde anstelle des With - End With Konstrukts nur noch

Selection.Format.Fill.ForeColor.RGB = RGB(0, 176, 240)

übrigbleiben.
Gruess Hansueli

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

61 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Farbe in Diagramm ändern

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

61 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread