Anzeige
Archiv - Navigation
372to376
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
372to376
372to376
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Flächendiagramm Beschriftung ausrichten

Flächendiagramm Beschriftung ausrichten
02.02.2004 17:22:20
nils
hallo liebe programmierer,
ich habe ein flächendiagramm das über 52 wochen geht.
darin sind 50 datenreihen. die werte jeder datenreihe sind
in jeder woche anders.
ich brauche meine datenbeschriftung an dem wert der datenreihe der am
höchsten ist.
? wie kann ich den höchstwert der datenreihe auslesen,
und dann die diagramm beschriftung auf diesen datenpunkt setzen?
also 50 datenbeschriftungen für 50 datenreihen.
danke im vorraus
nils

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Flächendiagramm Beschriftung ausrichten
02.02.2004 21:23:00
K.Rola
Hallo,
Option Explicit
Option Base 1

Sub Ausrichten()
Dim ch As Chart, pts As Byte, p As Byte, t As Single, arr() As Single
Set ch = ActiveSheet.ChartObjects(1).Chart
pts = ch.SeriesCollection(1).Points.Count
ReDim arr(pts)
For p = 1 To pts
arr(p) = ch.SeriesCollection(1).Points(p).DataLabel.Top
Next
t = Application.Min(arr)
For p = 1 To pts
ch.SeriesCollection(1).Points(p).DataLabel.Top = t
Next
End Sub

Gruß K.Rola
Noch ein Hinweis...
02.02.2004 21:37:24
K.Rola
Hallo,
du solltest das Makro ggf. aus Private Sub Worksheet_Calculate()
ausführen, damit bei Veränderungen immer automatisch angepasst wird.
Gruß K.Rola
Anzeige
vielen dank ....nur noch nicht was ich brauche
03.02.2004 20:28:46
nils
ein tolles makro
nur leider habe ich mich nicht besser ausdrücken können
das makro schreibt mir die beschriftungen jetzt alle
oben an die decke
aber nicht an den datenpunkt mit der höchsten "value"
habe meinen entwurf heute noch mal mit beispiel hochgeladen
danke dir aber sehr
nils

144 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige