Position DataLabels auslesen

Forumthread: Position DataLabels auslesen
3 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Position DataLabels auslesen

16.09.2014 13:16:08

Andreas

Hallo Zusammen,
ich kann die Position eines Datalabels ja wir folgt setzten:
.SeriesCollection(1).DataLabels.Left = 334.11
.SeriesCollection(1).DataLabels.Top = 151.92
aber wie kann ich die Position auslesen, d.h. ich möchte die Werte für Left und Top haben
l=.SeriesCollection(1).DataLabels.Left funktioniert nicht
Gruß
Andreas

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

.Points(1) hinzufügen

16.09.2014 13:36:37

NoNet
AW: .Points(1) hinzufügen

16.09.2014 13:50:15

Andreas
AW: .Points(1) hinzufügen

16.09.2014 14:31:34

Andreas

.Points(1) hinzufügen

16.09.2014 13:36:37

NoNet

Hallo Andreas,
m.E. musst Du zum Auslesen der Position des Labels noch den spezifischen Wert (genauer : Das einzelne Label-Objekt) spezifizieren :

    With ActiveSheet.ChartObjects(1).Chart
.SeriesCollection(1).Points(1).DataLabel.Left = 334.11
MsgBox .SeriesCollection(1).Points(1).DataLabel.Left
End With

Salut, NoNet

AW: .Points(1) hinzufügen

16.09.2014 13:50:15

Andreas

Spitze funktioniert :-)

AW: .Points(1) hinzufügen

16.09.2014 14:31:34

Andreas

zu früh gefreut.
wenn ich das Programm laufen lasse bekomme ich eine Fehlermeldung das die Methode "Left" für das Objekt Datalabel fehlgeschlagen. Gehe ich auf Debuggen kann ich mit F8 ohne Fehler fortfahren
l = .SeriesCollection(17).Points(1).DataLabel.Left
t = .SeriesCollection(17).Points(1).DataLabel.Top
.SeriesCollection(18).Points(2).DataLabel.Left = l + 10
.SeriesCollection(18).Points(2).DataLabel.Top = t