Überlappende Datenbeschriftung verhindern
dobri
Wie kann ich verhindern, dass sich Datenbeschriftungen in einem Diagramm
überschneiden, wenn sie die gleiche Position im Diagramm haben?
Danke schon mal im Voraus,
Doro
Beverly
das kann man nicht verhindern. Man könnte sie höchstens per Makro
verschieben, was aber auch nicht so ganz problemlos ist. Mit dem folgenden
Code werden die Beschriftungslabel der 1. Datenreihe jeweils um ein Stück
nach Rechts verschoben in Abhängigkeit von der Länge des
Beschriftungslabelinhaltes:
Sub label_verschieben()
Dim inPunkt As Integer
With ActiveSheet.ChartObjects(1).Chart
For inPunkt = 2 To .SeriesCollection(1).Points.Count
.SeriesCollection(1).Points(inPunkt).DataLabel.Left =
.SeriesCollection(1).Points(inPunkt).DataLabel.Left + _
Len(.SeriesCollection(1).Points(inPunkt - 1).DataLabel.Text)
Next inPunkt
End With
End Sub
Dies ist aber auch nur begrenzt möglich. Außerdem wird dabei nicht
berücksichtigt, ob sie überhaupt verschoben werden müssten oder nicht (wenn
sie z.B. sowieso schon vertikal versetzt sind). Aber vielleicht ist das ja
ein Ansatz.
Bis später,
Karin
http://beverly.excelhost.de/