Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Datenreihenbeschriftung

Datenreihenbeschriftung
Georg
Hallo,
gibt es eine Möglichkeit, per VBA die Beschriftung der Datenreihen immer z.B. 2 cm über der Reihe zu positionieren
Bin für alle Hinweise dankbar
Gruß
Georg
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Datenreihenbeschriftung
29.03.2011 13:03:51
Beverly
Hi Georg,
meinst du so was in dieser Art:
Sub beschriftungslabel_verschieben()
Dim inReihen As Integer
Dim inPunkte As Integer
With ActiveSheet.ChartObjects(1).Chart
For inReihen = 1 To .SeriesCollection.Count
With .SeriesCollection(inReihen)
For inPunkte = 1 To .Points.Count
.Points(inPunkte).DataLabel.Top = _
.Points(Application.Match(Application.Max(.Values), .Values, 0)).DataLabel. _
Top - 1
Next inPunkte
End With
Next inReihen
End With
End Sub

Alle Beschriftungslabel werden in der selben Höhe oberhalb des höchsten Wertes jeder Datenreihe positioniert.


Anzeige

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige