hallo,
ich werke grade per VBA an einem chart (zwar in access, das dürfte in dem fall aber keinen unterschied machen) herum und bekomme es nicht wirklich hin.
zuerst mal der code (im endeffekt bekomm ich die daten dann aus einer mysql datenbank, momentan spiel ich noch mit array daten herum):
Dim ch As ChartSpace
Dim werte1(7) As Integer
Dim werte2(7) As Integer
Dim xachse(7) As Integer
Dim seriennamen(2) As String
seriennamen(0) = "Reihe 1"
seriennamen(1) = "Reihe 2"
werte1(0) = 1
werte1(1) = 2
werte1(2) = 3
werte1(3) = 4
werte1(4) = 5
werte1(5) = 6
werte1(6) = 7
werte2(0) = 4
werte2(1) = 3
werte2(2) = 2
werte2(3) = 5
werte2(4) = 7
werte2(5) = 8
werte2(6) = 9
xachse(0) = 1
xachse(1) = 2
xachse(2) = 3
xachse(3) = 4
xachse(4) = 5
xachse(5) = 6
xachse(6) = 7
Set ch = Me!diagram.Object
ch.Clear
ch.charts.Add
With ch.charts(0)
.Type = chChartTypeLineMarkers
.SetData chDimSeriesNames, ch.Constants.chDataLiteral, seriennamen
.SetData chDimCategories, ch.Constants.chDataLiteral, xachse
.SeriesCollection(0).SetData chDimValues, ch.Constants.chDataLiteral, werte1
.SeriesCollection.Add
.SeriesCollection(1).SetData chDimValues, ch.Constants.chDataLiteral, werte2
.Axes(0).Scaling.HasAutoMaximum = True
.Axes(0).Scaling.HasAutoMinimum = True
End With
ch.HasChartSpaceTitle = True
ch.ChartSpaceTitle.Caption = "Hallo"
ch.HasChartSpaceLegend = True
ch.ChartSpaceLegend.Position = chLegendPositionLeft
****************************************************************
****************************************************************
****************************************************************
wobei ich mir nicht sicher bin ob die werte richtig in das integrierte spreadsheet geschrieben werden, oder ob nur die achsenbeschriftung nicht passt.
ich erhalte auf jeden fall ein diagramm mit irgendwelchen achsenbeschriftungen (anscheinend zufällig).
irgendwelche ideen, was da nicht stimmen könnte?
mfg,
michael