Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
152to156
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
152to156
152to156
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Koordinaten von Datenpunkt in Diagramm Lösung!

Koordinaten von Datenpunkt in Diagramm Lösung!
29.08.2002 10:39:02
Burkhard
Hallo Leute!

Da ich auch lange in diesem Forum nach einer Lösung gesucht habe, sie aber nicht gefunden habe, möchte ich euch meinen Tip nicht vorenthalten. Wenn mir vielleicht jemand noch sagen kann, ob man auf Artikel im Archiv anworten kann, würde ich die Lösung auch gerne dort noch verbreiten, da doch einige User danach gefragt haben.

Mein Problem war das Zeichnen eines Shapes genau auf den Datenpunkt eines X/Y-Diagramms und das habe ich jetzt so gelöst:

*****************************************************************
* Plotarea ermitteln (Größe ohne Achsenbeschriftung!)
*****************************************************************

IH = ActiveChart.PlotArea.InsideHeight
IW = ActiveChart.PlotArea.InsideWidth
IL = ActiveChart.PlotArea.InsideLeft
IT = ActiveChart.PlotArea.InsideTop

XWert = 25 'X-Wert aus Tabelle für Diagramm =
YWert = 25 'Y-Wert aus Tabelle für Diagramm

XAbstand = IW / 100 * XWert 'X-Wert für eine Einheit im Diagramm (Umrechnung)
YAbstand = IH / 100 * YWert 'Y-Wert für eine Einheit im Diagramm (Umrechnung)
'X/Y-Achse bestehen aus 100 Einheiten
XAbst = XWert / 2 'Hälfter der Größe von Form für X-Rückverschiebung
YAbst = YWert / 2 'Hälfter der Größe von Form für Y-Rückverschiebung


*****************************************************************
* Shape einfügen
*****************************************************************

ActiveChart.Shapes.AddShape(msoShapeRectangle, IL + XAbstand, IT + YAbstand, _
XWert, YWert).Select 'So wird Rechteck auf dem linken oberen Eckpunkt auf den Datenpunkt gezeichnet

ActiveChart.Shapes.AddShape(msoShapeRectangle, IL + XAbstand - XAbst, IT + YAbstand - YAbst, _
XWert, YWert).Select 'So wird Rechteck auf den Mittelpunkt auf den Datenpunkt gezeichnet

Selection.ShapeRange.Line.Weight = 0.25
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 44
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid

Gruß
Burkhard

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Koordinaten von Datenpunkt in Diagramm Lösung!
02.09.2002 10:50:40
mathias r.
HIer gibt's den XYChartLabeler:
http://www.bmsltd.co.uk/MVP/Default.htm

"
A very commonly requested Excel feature is the ability to add labels to XY chart data points. The XY Chart Labeler provides this feature for Excel. Once the data labels are applied using the Add Labels utility, the Move Labels utility can be used to move the labels in any direction in 1 point increments. The Manual Labeler allows you to apply labels to individual data points within your chart. Note that the routine works just as well with most chart types.
"

Anzeige

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige