Diagramm Reihen formatieren

Hallo,
ich würde gerne ein Diagramm formatieren. In Spalte A sind die X-Werte. In Spalte B und C befinden sich die Werte der Reihen M und A.
Ich würde gerne die Reihe M blau und die Reihe A rot färben. Außerdem sollen die Reihen fett (weight=xlThick) sein. Leider bekomme ich es nicht hin. Vielen Dank für die Hilfe im voraus!!

Dim i As Integer, endzeile As Integer, maxWxAxe As Integer
Dim c As Chart
Dim ca As Axis
Set c = ActiveSheet.ChartObjects(1).Chart
With c
.ChartType = xlXYScatterLinesNoMarkers
.HasTitle = True
.ChartTitle.Characters.Text = "Ergebnisse"
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Anzahl der Spiele"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Höhenflug"
.HasLegend = True
.Legend.Position = xlLegendPositionBottom
.SetSourceData Source:=ActiveSheet.Range(Cells(2, 6), Cells(endzeile, 7)), PlotBy:=xlColumns
End With
Set ca = c.Axes(xlCategory)
With ca
.MinimumScale = 0
.MaximumScale = maxWxAxe
.MajorUnit = 1
End With
Set c = Nothing
Set ca = Nothing

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi,
ein Diagramm über den Diagrammtitel ansprechen zu können: laufe in einer Schleife über alle eingebetteteb Diagrammobjekte und prüfe den Diagrammtitel.

Dim endzeile As Long, maxWxAxe As Integer
Dim chrDia As ChartObject, blnVorhanden As Boolean
For Each chrDia In ActiveSheet.ChartObjects
If chrDia.Chart.HasTitle Then
If chrDia.Chart.ChartTitle.Text = "Ergebnisse" Then
blnVorhanden = True
Exit For
End If
End If
Next chrDia
If blnVorhanden Then
endzeile = 5   ' nur festgelegt damit der Code funktioniert
maxWxAxe = 20  ' nur festgelegt damit der Code funktioniert
With chrDia.Chart
.ChartType = xlXYScatterLinesNoMarkers
.HasTitle = True
.ChartTitle.Characters.Text = "Ergebnisse"
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Anzahl der Spiele"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Höhenflug"
.HasLegend = True
.Legend.Position = xlLegendPositionBottom
.SetSourceData Source:=Range(Cells(2, 1), _
Cells(endzeile, 3)), PlotBy:=xlColumns
With .Axes(xlCategory)
.MinimumScale = 0
.MaximumScale = maxWxAxe
.MajorUnit = 1
End With
With .SeriesCollection(1).Border
.ColorIndex = 5
.Weight = xlThick
End With
With .SeriesCollection(2).Border
.ColorIndex = 3
.Weight = xlThick
End With
End With
End If

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread