Datenbeschriftung in xy Diagramm
Jens Modler
ich möchte einzelne Datenpaare in in xy Diagramm eintragen, und die
Datenpunkte mit einem Text beschriften. Optional würde ich die Punkte
auch durchnummerieren und die Beschriftung in einer Legende vornehmen.
Kann Excel das überhaupt?
Ich habe es bis jetzt nur geschafft die Daten mit dem x oder dem y Wert
zu beschriften.
Vielen Dank für Hilfe
jens
Manfred Hilbig
im folgenden eine Lösung:
a) X/Y - Diagramm aufziehen
b) Diagrammfläche markieren
c) DIAGRAMM/DATENQUELLE anklicken
d) DATENREIHE/HINZUFÜGEN
e) Adresse für NAME, X-WERTE und Y-WERTE eines Punktes eintragen (Siehe
Beispiel unten)
f) Für den nächsten Punkt weiter bei d)
Beispiel für Datenquelle (Tabellenblatt):
A B C D
1 Punktname Text1 Text2 Text3 Text4
2 X-Wert 11 12 13 14
3 Y-Wert 201 210 223 250
In diesem Beispiel erscheinen die Punktnamen in der Legende und die
einzelnen Punkte werden mit unterschiedlichen Symbolen und Farben
dargestellt.
Gruß
Manfred Hilbig
"Jens Modler" <jens....@hamburg.de> schrieb im Newsbeitrag
news:3BF530B1...@hamburg.de...
Jens Modler
mit deiner Lösung habe ich es leider immer noch nicht geschafft, den Datenpunkt
direkt zu beschriften. Die Darstellung jeder Datenpunkt in anderer Farbe und
Muster ergibt bei meinen angestrebten 30-40 Datenpunkten ein ziemliches Wirrwarr
wo dann das große Gesuche in der Legende losgeht. Ein Durchnummerieren der
Datenpunkte wäre da viel übersichtlicher.
Vielleicht gibt es noch eine andere Lösung.
jens modler
Manfred Hilbig schrieb:
Wilfried Butzek
Hallo Jens,
falls Du, so habe ich es zumindest verstanden,
fuer die Datenpaare eine unterschiedliche Beschriftung
haben willst, habe ich dafuer folgende Loesung (unter
WIN NT 4.0 SP3 und XL97 SR1) gefunden:
1. Eine zusaetzliche Spalte anlegen, die die Beschrfitung
der einzelnen Datenpunkte (also pro Datenpaar XY),
aufnimmt.
Beispiel:
Spalte A enthaelt die X-Werte
Spalte B enthaelt die Y-Werte
Spalte C enthaelt die Beschriftung fuer die Spalte A und B
Diagrammtyp: Punkte
Diagrammoptionen:
Legende: nicht anzeigen
Datenbeschriftungen: Wert anzeigen
Die Daten fuer die nachfolgende Prozedur sind wie folgt
im Tabellenblatt enthalten:
[A6:A12] X-Werte
[B6:B12] Y-Werte
[C6:C12] Beschriftung der A:B-Zeilen
Muesstest Du, falls es das ist, an Deine Gegebenheiten
anpassen. Die Prozedur kopiere in das Klassenmodul des
entsprechenden Tabellenblattes (natuerlich erst an einer
Kopie testen; Zeilenumbruch im Editor ist der Unterstrich):
Sub DatenpunkteXYBeschriften()
Dim chtYXDiagr As ChartObject
Dim ptsEinzelpunkt As Point
Dim ptsPunkte As Points
Dim lngPunkte As Long
Set chtYXDiagr = ActiveSheet.ChartObjects(1)
ActiveSheet.Range("C6").Select
Set ptsPunkte = chtYXDiagr.Chart.SeriesCollection(1).Points
For lngPunkte = 1 To ptsPunkte.Count
Set ptsEinzelpunkt = ptsPunkte(lngPunkte)
ptsPunkte(lngPunkte).HasDataLabel = True
ptsPunkte(lngPunkte).ApplyDataLabels _
Type:=xlDataLabelsShowValue, LegendKey:=False
ptsPunkte(lngPunkte).DataLabel.Font.Size = 6
ptsPunkte(lngPunkte).DataLabel.Text = ActiveCell.Value
ActiveCell.Offset(1, 0).Select
Next lngPunkte
Set chtYXDiagr = Nothing
Set ptsPunkte = Nothing
End Sub
Falls Du mit dieser Beschreibung nicht klarkommst,
kann ich Dir auch die Mustertabelle als Mappe (21 KB)
zur Verfuegung stellen. Bei Bedarf bitte PM an mich.
Mit freundlichem Gruss
Wilfried