Überlappende Datenbeschriftung verhindern

03/03/2010 - 16:10 von dobri | Report spam
Hallo Zusammen!
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
 

Lesen sie die antworten

#1 Beverly
03/03/2010 - 16:53 | Warnen spam
Hi Doro,

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/




"dobri" wrote:

Hallo Zusammen!
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

Ähnliche fragen