Hi!
Ich habe ein Problem, und zwar:
Ich habe Daten für ein Diagramm in einem Tabellenblatt, sieht inetwa so aus:
X-Achse|Werte1|Werte2|Werte3
-0,01| 0,9| 0,8| 0,001
-0,02| 0,8| 0,7| 0,002
usw.
Ich kann das Diagramm mittels VBA ganz normal zeichnen, aber ich möchte noch der X-Achse die Werte der Spalte "X-Achse" zuweisen.
Der Diagrammtyp ist "xlLine"
Ich habe mich schon über Google schlaugemacht, aber leider konnte mir niemand helfen.
aja, der Code:
Sub drawDiagramm()
Dim wksData As Worksheet
Dim rngData As Range
Dim nRowsCnt As Long
Dim nColsCnt As Integer
Dim objChart As Chart
Dim objChartObj As ChartObject
On Error GoTo err_CreateChart
Set wksData = ThisWorkbook.Worksheets(1)
With wksData
nRowsCnt = .Cells(.Rows.Count, 5).End(xlUp).Row
nColsCnt = .Cells(1, .Columns.Count).End(xlToLeft).Column
Set rngData = .Range(.Cells(1, 5), .Cells(nRowsCnt, nColsCnt))
End With
Application.ScreenUpdating = False
Set objChart = Application.Charts.Add
With objChart
.ChartType = xlLine
.SetSourceData Source:=rngData, PlotBy:=xlColumns
.HasTitle = True
.ChartTitle.Text = "Diagramm"
.Location Where:=xlLocationAsObject, Name:=wksData.Name
End With
Set objChartObj = wksData.ChartObjects( _
wksData.ChartObjects.Count)
With objChartObj
.Left = 10
.Top = 50
.Width = 300
.Height = 200
End With
wksData.Range("E1").Select
exit_sub:
On Error Resume Next
Application.ScreenUpdating = True
Set objChartObj = Nothing
Set objChart = Nothing
Set rngData = Nothing
Set wksData = Nothing
On Error GoTo 0
Exit Sub
err_CreateChart:
MsgBox "Fehler " & Err.Number & vbCrLf & Err.Description, _
vbOKOnly + vbCritical
Resume exit_sub
End Sub
Danke im Voraus
Sternze |