Points 集合对象

         
Charts (Chart)
ChartGroups (ChartGroup)
SeriesCollection (Series)
Points (Point)
Border
DataLabel
Interior

图表中指定的数据系列内所有 Point 对象的集合。

Points 集合对象的用法

可用 Points 方法返回 Points 集合。下例向嵌入的第一个图表(在第一张工作表上)中的数据系列一的最后一个数据点添加数据标签。

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

可用 Points(index) 返回单个 Point 对象,其中 index 为数据点编号。系列中的数据点按从左至右的顺序编号。Points(1) 为最左边的数据点,而 Points(Points.Count) 为最右边的数据点。下例设置嵌入的第一个图表(在第一张工作表上)的数据系列一上的第三个数据点的标志样式。指定数据系列必须为二维折线图、图或雷达图中的数据系列。

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