Office: Werte auf X-Achse ändern

Hallo zusammen,

ich bin relativ neu in der VBA-Programmierung und vielleicht gibt es eine ganz einfache Antwort auf mein Problem...

Ist-Situation: Mein per VBA generiertes Excel-Diagramm hat per Default 5 Werte jeweils auf beiden Achsen [0, 1, 2, 3, 4, 5]. Leider habe ich es nicht geschafft, diese Werte anzupassen. Ich habe zwei Wege versucht:

chtRisk.Chart.Axes(1).CategoryNames = Worksheets("WERTE").Range("I5:I9")

ODER

chtRisk.Chart.Axes(1).CategoryNames = Array("neu", "stabilisiert", "etabliert", "überholt", "veraltet")

Leider hatte keine der beiden Varianten den gewünschten Effekt *mad.gif* . Es blieben weiterhin die Werte 0 bis 4 stehen. Ist es vielleicht die falsche Methode? Hat jemand eine Idee wie man das amchen könnte? Hier der entsprechende Code-Ausschnitt:

' draw a diagram with (x,y) points
Set chtRisk = ActiveSheet.ChartObjects.Add _
(left:=hOffs1, width:=400, Top:=uTop, height:=300)
chtRisk.Chart.ChartType = xlXYScatter

chtRisk.Name = "Risikobewertung"
chtRisk.Chart.HasTitle = True
chtRisk.Chart.HasLegend = False
chtRisk.Chart.ChartTitle.Characters.Text = "Risikobewertung"

' format chart grid
chtRisk.Chart.Axes(1).MinimumScale = 0
chtRisk.Chart.Axes(1).MaximumScale = 4
chtRisk.Chart.Axes(1).MajorUnit = 1
chtRisk.Chart.Axes(1).HasMajorGridlines = True
chtRisk.Chart.Axes(1).HasTitle = True
chtRisk.Chart.Axes(1).CategoryNames = Array("neu", "stabilisiert", "etabliert", "überholt", "veraltet")
chtRisk.Chart.Axes(2).MinimumScale = 0
chtRisk.Chart.Axes(2).MaximumScale = 4
chtRisk.Chart.Axes(2).MajorUnit = 1
chtRisk.Chart.Axes(2).HasMajorGridlines = True

'format plot area
chtRisk.Chart.PlotArea.Select
With Selection
.Fill.Visible = True
.Fill.TwoColorGradient Style:=msoGradientDiagonalDown, Variant:=1
.Fill.ForeColor.SchemeColor = 3
.Fill.BackColor.SchemeColor = 43
End With

' chart values
chtRisk.Chart.SeriesCollection.NewSeries
chtRisk.Chart.SeriesCollection(1).XValues = Range(Cells(11, 12), Cells(11, iCol - 1))
chtRisk.Chart.SeriesCollection(1).Values = Range(Cells(100, 12), Cells(100, iCol - 1))
For Counter = 1 To iCol - 12
chtRisk.Chart.SeriesCollection(1).Points(Counter).HasDataLabel = True
chtRisk.Chart.SeriesCollection(1).Points(Counter).DataLabel.Text = Cells(3, Counter + 11)
Next Counter

' Bug? Set again the chart type, otherwise the points are connected with lines...
chtRisk.Chart.ChartType = xlXYScatter

Bin gespannt auf Vorschläge, besten Dank schon im Voraus
Christian

:)

 

Hallo zusammen,

hier die Lösung falls jemand über dasselbe Problem stolpert:

1) Mit einem xlXYScatter Chart Type scheint es nicht zu gehen, man muss xlLine nehmen.
2) Direkt danach die Chart Values (SeriesCollection) angeben
3) Wenn man trotzdem ein Punkt-Diagramm haben will, kann man nun mittels Border.LineStyle = xlNone auf der SeriesCollection die Linien zwischen den Punkten entfernen
4) Nun funktioniert das Setzen der Werte mittels CategoryNames wie erwartet...*grins

Gruss
Christian