Diagramm Linienfarbe aus Zellfarbe "auslesen"

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub DatenreihenFaerben() Dim chDiagramm As Chart Dim inReihe As Integer Set chDiagramm = ActiveSheet.ChartObjects(1).Chart With chDiagramm For inReihe = 1 To .SeriesCollection.Count chDiagramm.SeriesCollection(inReihe).Border.ColorIndex = Cells(3, inReihe + 3). _ Interior.ColorIndex Next inReihe End With Set chDiagramm = Nothing End Sub

Sub DatenreihenFaerben() Dim chDiagramm As Chart Dim inReihe As Integer Set chDiagramm = ActiveSheet.ChartObjects(1).Chart With chDiagramm For inReihe = 1 To .SeriesCollection.Count .SeriesCollection(inReihe).Border.ColorIndex = Cells(3, inReihe + 3).Interior. _ ColorIndex .SeriesCollection(inReihe).Border.Weight = xlThick Next inReihe End With Set chDiagramm = Nothing End Sub

Hey Karin
ich hab genau das versucht - krieg es aber nicht hin :(
es müssen ja nicht nur darum eine einzelne Linie anzupassen
sondern um ALLE Linien in dem Diagramm
Gruss Stefan
hier mein aktuelle Code


Sub DatenreihenFaerben()
'Quelle Beverly
Dim chDiagramm As Chart
Dim inReihe As Integer
Set chDiagramm = ActiveSheet.ChartObjects(1).Chart
With chDiagramm
For inReihe = 1 To .SeriesCollection.Count
.SeriesCollection(inReihe).Border.ColorIndex = Cells(26, inReihe + 4).Interior. _
ColorIndex
.SeriesCollection(inReihe).Border.Weight = xlThick
Next inReihe
End With
Set chDiagramm = Nothing
'senkrechte Linien der X-Achse formatieren  (dünne Linie hellgrau)
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.SeriesCollection(1).Select
With Selection.Border
.ColorIndex = 15
.Weight = xlThin
.LineStyle = xlContinuous
End With
With Selection
.MarkerBackgroundColorIndex = xlNone
.MarkerForegroundColorIndex = xlNone
.MarkerStyle = xlNone
.Smooth = False
.MarkerSize = 5
.Shadow = False
End With
End Sub

Hi Stefan,
ich kann an deinem Code nicht erkennen, dass du einer Datenreihenlinie eine andere Schraffur zuweist - dein Code weist nur der 1. Datenreihe die Linienfarbe Hellgrau und die Strichstärke Dünn zu.
Ich möchte dich bitten, nur noch in diesem Thread hier die Diskussion weiterzuführen. So wie du den Code hier gepostet hast ist er ein wenig sinnlos. In dem anderen Thread habe ich dir zum Formatieren der Datenreihenlinien bereits geschrieben, dass dein aufgezeichneter Teil weg kann und die Schleife nicht mit 1 sondern mit 2 beginnen muss, da deine "senkrechten Linien" nichts mit der X-Achse zu tun haben sondern einfach nur die 1. Datenreihe sind, die du einmalig von Hand hellgrau formatieren kannst. Sie muss also von der Formatierung mittels Code ausgeschlossen werden.

Beliebteste Forumthreads (12 Monate)

Diagramm Linienfarbe aus Zellfarbe "auslesen"

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

308 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Diagramm Linienfarbe aus Zellfarbe "auslesen"

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

308 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread