Office: Liniendiagramm, Farbe ändern per VBA

Hallo,

kann mir jemand erklären, wie ich per VBA die Linienfarbe einer Datenreihe in einem Liniendiagramm ändern kann.
Meine Farbvorgaben werden leider von Access 03 vehement ignoriert.

Per Suche habe ich schon etwas von "SeriesCollection" gelesen, komme damit aber nicht weiter.

Das Diagramm funktioniert als solches, leider werden aber von Access immernoch eigenwillig Farben für die Datenreihen vergeben.

Höre gerne.

Gruß
Stahlbanane

:)

 

Hi Stahlbanane,

für Linienfarbe, Symbolfarbe und Symbolumrandung

Me!Diagrammname.SeriesCollection(1).MarkerBackgroundColorIndex = 3
Me!Diagrammname.SeriesCollection(1).MarkerForegroundColorIndex = 3
Me!Diagrammname.SeriesCollection(1).Border.ColorIndex = 3

Farbindex 3 = rot

 

Gandalf / Jan

Vielen Dank, das funktioniert!

das ".SeriesCollection" wurde mir beim Eintippen gar nicht angeboten, und wenn ich es trotzdem angab, wurde es beim Verlassen der Zeile im Editor nicht in Groß/Kleinschrift umgewandelt. Ich dachte, dass es evtl. an ein paar nichtgesetzten Verweisen liegen könnte.

Wo finde ich mehr Infos zu ".SeriesCollection", da offensichtlich alle gesetzten Vorgaben zu den Datenreihenformatierungen ignoriert werden. So werden bei mir z.B. immernoch Datenpunkte angezeigt, obwohl das eigentlich ausgeschaltet ist.

Höre gerne.

Gruß
Stahlbanane


'###########################

Hab's gerade etwas intensiver getestet und merke, das ich mich zu früh gefreut habe.
Ich erhalte folgende Fehlermeldung:
Laufzeit 1004, die MarkerBackgroundColorIndex-Eigenschaft des Series-Objektes kann nicht festgelegt werden.

Woran kann das liegen.

Höre gerne.

Gruß
Stahlbanane

 

Hi Stahlbanane,

Also funktioniert das nun oder doch nicht so ganz?
Oder was funktioniert bzw. was nicht?

Wenn die Datenpunkte nicht angzeigt werden,
kann auch keine Eigenschaft zugewiesen werden.
Das ist dann schon korrekt mit der Fehlermeldung
denke ich.

Die Verweise auf MSGraph hast du gesetzt nehme ich an.

Hast du mal zu seriescollection in OH geguckt?
Oder über die Hilfe im Objektkatalog VBA

 

Gandalf / Jan

Moin,

also, ich dachte erst, dass es funktioniert, da Du als Beispiel rot genommen hast. Standartmäßig kam eine Datenreihe immer in pink. Ich glaubte daher, das es funktionierte, weil ich keine Fehlermeldung bekam.

Auf dem Rechner, wo ich das ganze getestet hatte, war der Verweis auf Graph allerdings nicht gesetzt. Das war es, denn nun funktioniert es wirklich.

Darum: VIELEN DANK!

Gruß
Stahlbanane

 

Hi Stahlbanane,

gern geschehen.

Aber wer ist eigentlich Jan? *eek.gif*

 

Jan: Das bin ich.

Gruß

 

Finde Seriescollection nicht im Objektkatalog. Wie setze ich die Verweise? Was ist OH?

Ich hab nämlich grad das selbe Problem und die gleiche Fehlermeldung, nur auf Englisch, und bin nun auf der Suche.. Nur weil einer wollte, dass die Diagrammfarbe sich dynamisch ändert ;-)

EDIT: Verweis auf MS Graph 11 ist gesetzt! Gleiche Fehlermeldung :-( Not gonna give up!

EDIT2: Liegt es daran, dass ich ein Säulen-Diagramm habe?

 

Hallo Kaba82,
für die Änderung der Säulenfarbe: Me!Diagrammname.SeriesCollection(1).Interior.ColorIndex = 3 (oder eine andere Farbe) Für den Rahmen der Säule: Me!Diagrammname.SeriesCollection(1).Border.ColorIndex = 3

 

Das war es tatsächlich, danke =)