ChartObjects 集合对象

Worksheets (Worksheet) ChartObjects (ChartObject) Border Chart Interior PivotLayout

指定的图表工作表、对话框编辑表或工作表上所有 ChartObject 对象的集合。每个 ChartObject 对象代表一个嵌入图表。ChartObject 对象的作用是作为 Chart 对象的容器。ChartObject 对象的属性和方法控制工作表上嵌入图表的外观和尺寸。

ChartObjects 集合对象的的用法

可用 ChartObjects 方法返回 ChartObjects 集合。下例删除工作表 Sheet1 上的所有嵌入图表。

Worksheets("sheet1").ChartObjects.Delete

可用 Add 方法新建空白嵌入图表，并将其添加到集合中。可用 ChartWizard 方法向新图表添加数据并设置其格式。下例创建新的嵌入图表，然后将单元格区域 A1:A20 中的数据添加到该图表中，并将该图表设置为折线图。

Dim ch As ChartObject
Set ch = Worksheets("sheet1").ChartObjects.Add(100, 30, 400, 250)
ch.Chart.ChartWizard source:=Worksheets("sheet1").Range("a1:a20"), _
    gallery:=xlLine, title:="New Chart"

可用 ChartObjects(index) 返回单个 ChartObject 对象，其中 index 为嵌入图表的编号或名称。下例设置工作表 Sheet1 上嵌入的第一个图表的图表区的图案。

Worksheets("Sheet1").ChartObjects(1).Chart. _
    ChartArea.Interior.Pattern = xlLightDown