Information im Diagramm

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo, Julia,
die Information die Du im Fenster erhälst, ist m.W. nach intern durch das Objekt festgelegt, da sie nur die Werte Name, XValue und Value (Y-Wert) des mit der Mausposition eingefangenen Datenpunktes (Säule) wiedergibt. diese Werte bilden den Datenpunkt der Datenreihe.
Zusaätzliche Informationen mit der von Dir beschreibenen Mausfunktionalität kannst Du nur über das Zuladen einer weiteren Datenreihe erhalten, die Du auf die Sekundärachse legst und die mit den YWerten die Säulenhöhen beschreibt und die als XAchse (Rubrik) die Spalte C erhält.
Zusätzlich mußt Du zwei Nullreihen anlegen, je XAchse eine, so dass schließlich

auf der Primärachse die Reihe {Zeit;YWerte} und Reihe Null1 und

auf der Sekundärachse die Reihe Null2 und die Reihe {Name;YWert}
bezogen sind.
S erhälts Du zwei Säulen nebeneinander, die beide eigene XWerte aufweisen. Fähsrt Du nun von links die Säule an, so erscheint im Infofenter der wer XWert der Spalte A, während die rechte Seite der Doppelsäule den XWert der Spalte C liefert.
Die Läulen werden gleichfarbig und ohne Rahmen formatiert, wenn man den Eindruck erzeugen möchte, das es sich um eine Säule handelt.
Komme erst später dazu, Deine Mappe entsprechend aufbereitethochzuladen. Aber vileelciht genügt bereits dieser Hinweis.
Wenn Dir allerdings es ausreicht, dass die Säulen nur mit den Namen aus der Spalte C versehen werden, dann kannst Du auch ein VBA-Makro (siehe Grundkonsept unten) einsetzen, das Dir die Bezeichungen (ggf. frei zusammgesetzter Text) an alle Punkt anschreibt, was jedoch zumeist unübersichtlich wird, wenn die Menge an Datenpunkten zunimmt.
Gruß,
Uwe
in einem Standarsmodul:


Option Explicit
Sub WriteLabels()
Dim ws As Worksheet, wsC As Worksheet
Dim cht As Chart, sc As SeriesCollection, pt As Point, ipt As Integer
Dim rng As Range
Set ws = Worksheets("Data")
Set wsC = Worksheets("Chart")
Set cht = wsC.ChartObjects(1).Chart
Set sc = cht.SeriesCollection
Application.ScreenUpdating = False
Set rng = ws.Range("C2:C" & ws.Cells(ws.Rows.Count, 3).End(xlUp).Row)
With sc(1)
For ipt = 1 To .Points.Count
With .Points(ipt)
.HasDataLabel = True
.DataLabel.Text = rng(ipt).Value2 'ws.Cells(ipt + 1, "C")
End With
Next ipt
.DataLabels.Orientation = xlUpward
End With
wsC.Activate
Application.ScreenUpdating = False
End Sub

Alternativlösung ohne Nullreihen und Säulenteilung.
VerkettetePunktInfo_47130.xls
Prinzip auch hier, die gleiche Datenreihe wird zweimal, jedoch jeeils mit verschidener Rubrikachse geladen. Während bei die Musterformatierung die Säulendarstellung für die Primärachse keine Linien und Füllfarbe erhält, wird die Sekunderachsensäulen angezeidt und die Rubrikinformation wird aus der Spalte D genommen, die hier eine Verkettung der Werte der Spalte A und C ist. Natürlich kann man auch gleich auf die Spalte C verweisen, wenn die Information, die dies Spalte A liefert, aus der XAchsenbeschriftung abgelesen wird.
Vermutlich gibt es noch weitere Kombinationsmöglichkeiten.
Jedoch der Aufbau eines eigenen Informationsfenster, das einen formatierten und umgebrochenen Text mit Ortsangaben enthält und sich öffnet, wenn der Mauszeiger eine definierte Region überfährt, ist damit nicht erledigt und bedarf m.E. fortgeschrittener Programmiertechnicken.
Gruß,
Uwe

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Information im Diagramm

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread