Chart 对象

多个对象 Chart 多个对象

代表工作簿中的图表。该图表既可为嵌入图表（包含在 ChartObject 中），也可为一个单独的图表工作表。

Chart 对象用法

本部分将说明下列返回 Chart 对象的属性和方法：

• Chart 属性
• Charts 方法
• ActiveChart 属性
• ActiveSheet 属性

Chart 属性

可用 Chart 属性返回 Chart 对象，该对象代表包含在 ChartObject 对象中的图表。下例设置工作表 Sheet1 上第一个嵌入图表中图表区的图案。

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

Charts 方法

Charts 集合中的每个 Chart 对象代表工作簿中的一张图表工作表。使用 Charts(index)（其中 index 是该图表工作表的索引号或名称）可返回单个的 Chart 对象。下例更改第一张图表工作表中第一个系列的颜色。

Charts(1).SeriesCollection(1).Interior.Color = RGB(255, 0, 0)

图表工作表的索引号表示图表工作表在工作簿的工作表标签栏上的位置。Charts(1) 是工作簿中第一个（最左边的）图表工作表；Charts(Charts.Count) 为最后一个（最右边的）图表工作表。所有的图表工作表均包括在索引号序列中，即便是隐藏图表也不例外。图表工作表的名称出现在工作簿中该图表的标签上。可用 Name 属性设置或返回图表名称。

下例将图表“Sales”移至活动工作簿的尾部。

Charts("Sales").Move after:=Sheets(Sheets.Count)

Chart 对象也是 Sheets 集合的成员。Sheets 集合包含工作簿中所有的工作表（既包括工作表，也包括图表工作表）。可用 Sheets(index)（其中 index 为工作表的索引号或名称）返回单张工作表。

ActiveChart 属性

当图表为活动对象时，可用 ActiveChart 属性来对其进行引用。如果用户选定了图表工作表，或用 Activate 方法激活了图表工作表，该图表工作表就处于活动状态。下例激活第一张图表工作表，并设置图表类型和标题。

Charts(1).Activate
With ActiveChart
    .Type = xlLine
    .HasTitle = True
    .ChartTitle.Text = "January Sales"
End With

如果用户选定了嵌入图表，或用 Activate 方法激活了包含嵌入图表的 ChartObject 对象，则该嵌入图表就处于活动状态。下例激活第一张工作表上的第一张嵌入图表，并设置图表类型和标题。请注意，当激活嵌入图表之后，本示例中的代码与上例中的代码相同。在 Visual Basic 代码中使用 ActiveChart 属性，既可引用嵌入图表，也可引用图表工作表（只要该图表处于活动状态）。

Worksheets(1).ChartObjects(1).Activate
ActiveChart.Type = xlLine
ActiveChart.HasTitle = True
ActiveChart.ChartTitle.Text = "January Sales"

ActiveSheet 属性

当图表工作表为活动工作表时，可用 ActiveSheet 属性引用之。下例使用 Activate 方法激活名为 Chart1 的图表工作表，并将图表中第一个系列的内部颜色设置为蓝色。

Charts("chart1").Activate
ActiveSheet.SeriesCollection(1).Interior.ColorIndex = 5