Anzeige
Archiv - Navigation
1208to1212
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

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

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

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige