Diagramm
10.03.2007 16:19:57
Jo
Hallo Forum,
ich habe folgendes Problem: ich möchte ein Diagramm erstellen, dass als X-Werte das Range "Xwert" und als Y-Werte das Range "Ywert" verwendet, im Sinne der Zeile:
chtChart.SetSourceData Source:=ActiveSheet.Range("A1:A10, E1:E10")
- nur mit den Variablen. Wenn ich die unten dargestellten Syntax "Range(Xwert, Ywert)" verwende, gibt er mir ein Diagramm mit 4 Datenreihen aus. Ich möchte dass er nur Spalte A und Spalte E verwendet und die dazwischenliegenden nicht berücksichtigt.
Schonmal vielen Dank im Voraus!
Jo
Sub test()
Dim Xwert As Range
Dim Ywert As Range
Dim chtChart As Chart
Set Xwert = Range("A1:A10")
Set Ywert = Range("E1:E10")
ActiveSheet.ChartObjects.Add Left:=60, Top:=90, _
Width:=400, Height:=225
Set chtChart = ActiveSheet.ChartObjects(1).Chart
chtChart.ChartType = xlXYScatterLines
chtChart.SetSourceData Source:=ActiveSheet.Range(Xwert, Ywert)
End Sub