Hallo,
ich möchte ein Diagramm (chart-Object) erstellen und diesem zwei vertikale Linien hinzufügen. In dem Diagramm befinden sich etwa 30 Linien zu denen ich zwei vertikale Linien als Abgrenzung eines Bereichs hinzufügen möchte. Die Linien sind nur mit Start- und Endpunkt im Diagramm definiert. Zur Lösung habe ich hier http://www.office-loesung.de/ftopic488904_0_0_asc.php bereits code gefunden, den ich verwenden wollte.
Mit dem Code wird bei mir keine Linie eingefügt, es gibt aber auch keinen Fehler. Ich vermute, dass dies daran liegt, dass meine x-Achse nicht als Zahlen festgelegt sind. Wenn ich einen Zwischritt einfüge, wird dieser immer genau in der Mitte von Beginn und Ende an der Abszisse geplottet. Wenn ich beispielsweise als Zahlen an der Achse 0, 2 und 10 wähle, so steht die 2 in der Mitte, statt entsprechend näher an der 0 zu sein. Die Daten lese ich wie folgt ein:
Dim objShape As InlineShape
objShape = AppWord.ActiveDocument.InlineShapes.AddChart(4)
With objShape.Chart
.SetSourceData("'[datei.xlsx]Tabelle1'!$A$1:$Z$4", 2)
.Axes(1).AxisBetweenCategories = False
End With
Gibt es eine Möglichkeit dies umzustellen oder muss ich etwas anderes beachten? Ich hatte überlegt die Eigenschaft ScaleType des Axis-Objekts auf linear zu stellen, allerdings steht dort ein Ausnahmefehler. Deswegen kam ich auch darauf, dass die Einträge auf der Achse möglicherweise nicht als Zahlen erkannt werden.
Kann mir dabei jemand helfen?
viele Grüße
Torsten
|