VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

VBA-Begriff: Points-Auflistungsobjekt

Eine Auflistung aller Point-Objekte der angegebenen Reihe in einem Diagramm.

Verwenden der Points-Auflistung

Verwenden Sie die Points-Methode zum Zugriff auf die Points-Auflistung. Im folgenden Beispiel wird in dem ersten eingebetteten Diagramm des ersten Tabellenblatts dem letzten Punkt der ersten Reihe eine Datenbeschriftung hinzugefügt.

Dim pts As Points
Set pts = Worksheets(1).ChartObjects(1).Chart. _
    SeriesCollection(1).Points
pts(pts.Count).ApplyDataLabels type:=xlShowValue

Verwenden Sie Points(Index), wobei Index die Indexnummer des Punktes ist, um ein Point-Objekt zurückzugeben. Die Punkte der Reihe werden von links nach rechts nummeriert. Points(1)ist der Punkt, der am weitesten links, Points(Points.Count) der am weitesten rechts liegende. Im folgenden Beispiel wird die Markierungsart für den dritten Punkt der ersten Reihe im ersten eingebetteten Diagramm des ersten Tabellenblatts festgelegt. Die angegebene Reihe muss eine 2D-Linien-, -Punkt- oder -Netzreihe sein.

Worksheets(1).ChartObjects(1).Chart. _
    SeriesCollection(1).Points(3).MarkerStyle = xlDiamond