ich hätte da mal eine Frage: Ich habe ein Diagramm. Die X und die Y Werte stehen jeweils nebeneinander. Ich habe sie jeweils als Range definiert. In der Legende gibt mir VBA jetzt allerdings sowohl die Überschrift der X, als auch der Y Werte aus. Wie kann ich das abstellen, dass nur noch die Überschrift der x Werte dasteht?
Hier mal mein Code:
Option Explicit
Option Base 1
Sub Schaubild()
Dim ws As Worksheet
Dim sh As Shape
Dim ch As Chart
Dim sc As SeriesCollection
Dim ax As Axes
'Daten die in Daigramm dargestellt werden sollen
Dim Perioden As Variant
Dim BetaRange As Variant
Set ws = Worksheets("Diagramm")
If ws.Shapes.Count > 0 Then
ws.Shapes(1).Delete
End If
Set sh = ws.Shapes.AddChart
Set ch = sh.Chart
Set sc = ch.SeriesCollection
Set ax = ch.Axes
Perioden = ws.Range("A2:A5")
BetaRange = ws.Range("B2:B5")
'Chart Objekt erschaffen und befüllen
With ch
.ChartType = xlLine
.HasTitle = True
.ChartTitle.Text = "Die Betas im Zeitverlauf"
.HasLegend = True
.Legend.Position = xlLegendPositionRight
End With
'X- Achse
With ax(xlCategory)
.HasMajorGridlines = False
.HasTitle = True
.AxisTitle.Caption = "Perioden"
End With
'Y-Achse
With ax(xlValue)
.HasTitle = True
.AxisTitle.Caption = "Beta"
End With
With sc
.Item(1).Values = BetaRange
.Item(1).XValues = Perioden
End With
End Sub
Danke schon mal!
Tina