Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen

Position DataLabels auslesen

Betrifft: Position DataLabels auslesen von: Andreas Engel
Geschrieben am: 16.09.2014 11:16:08

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

  

Betrifft: .Points(1) hinzufügen von: NoNet
Geschrieben am: 16.09.2014 11:36:37

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


  

Betrifft: AW: .Points(1) hinzufügen von: Andreas Engel
Geschrieben am: 16.09.2014 11:50:15

Spitze funktioniert :-)


  

Betrifft: AW: .Points(1) hinzufügen von: Andreas Engel
Geschrieben am: 16.09.2014 12:31:34

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


 

Beiträge aus den Excel-Beispielen zum Thema "Position DataLabels auslesen"