AW: Diagramm erstellen
05.03.2008 14:07:00
Beverly
Hi,
dann meinst du nicht nur die Datenreihenbeschriftung sondern auch die Achsenbeschriftung?
Blende die Beschriftung der Rubrikenachse aus. Erstelle eine Datenreihe aus der Hilfsspalte und weise sie der sekundären Y-Achse zu. Formatiere die Beschriftung auf Position: Basis innerhalb, skaliere die sekundäre X-Achse auf Minimum: -1 und Maximum: 0 und aktiviere "Größen in umgekehrter Reihenfolge". Die beschriftung der sekundären y-Achse kannst du noch ausblenden. Den vorhandenen Code musst du durch diesen ersetzen
Sub beschriftung()
Dim inPunkt As Integer
Dim chDiagramm As Chart
Dim wsTabelle As Worksheet
Set wsTabelle = ActiveSheet
Set chDiagramm = ActiveSheet.ChartObjects(1).Chart
With chDiagramm
.SeriesCollection(1).ApplyDataLabels
.SeriesCollection(2).ApplyDataLabels
For inPunkt = 1 To .SeriesCollection(1).Points.Count
If wsTabelle.Cells(inPunkt + 5, 4) = 0 Then
.SeriesCollection(1).Points(inPunkt).DataLabel.Text = ""
.SeriesCollection(2).Points(inPunkt).DataLabel.Text = ""
Else
.SeriesCollection(1).Points(inPunkt).DataLabel.Text = Format(wsTabelle.Cells( _
inPunkt + 5, 4), "#0.00")
.SeriesCollection(2).Points(inPunkt).DataLabel.Text = wsTabelle.Cells(inPunkt + _
5, 5)
End If
Next inPunkt
End With
End Sub
https://www.herber.de/bbs/user/50459.xls