Excel 2007 VBA - 使用 Sheets.Add 在工作簿末尾创建图表

excel

使用 excel 2007 VBA 中的 Sheets.Add 方法可以在工作簿的末尾创建图表。这是一个非常方便的功能，可以帮助我们自动化地生成和管理图表。下面将为您介绍如何使用这个方法，并提供一个示例代码。

首先，我们需要打开 excel 2007，并打开一个工作簿。然后按下 "Alt + F11" 组合键，打开 VBA 编辑器。在 VBA 编辑器中，找到并双击要添加图表的工作簿，以打开该工作簿的代码窗口。

在代码窗口中，我们可以编写 VBA 代码来创建图表。首先，我们需要声明一个变量来引用新创建的图表对象。代码如下所示：

Dim chartObj As ChartObject

接下来，我们可以使用 Sheets.Add 方法来创建一个新的工作表，并将其分配给 chartObj 变量。代码如下所示：

Set chartObj = Sheets.Add

在这个示例中，我们使用了 Sheets.Add 方法来创建一个新的工作表。然后，我们将这个新的工作表分配给 chartObj 变量，以便以后可以对其进行操作。

接下来，我们可以使用 chartObj 变量来设置图表的属性和数据。例如，我们可以使用 chartObj.Chart 来引用图表对象，并使用 chartObj.Chart.ChartType 属性来设置图表的类型。代码如下所示：

chartObj.Chart.ChartType = xlColumnClustered

在这个示例中，我们将图表的类型设置为柱状图（xlColumnClustered）。

最后，我们可以使用 chartObj.Chart.SetSourceData 方法来设置图表的数据源。代码如下所示：

chartObj.Chart.SetSourceData Source:=Range("A1:B10")

在这个示例中，我们将图表的数据源设置为工作表中的 A1:B10 范围。

现在，我们已经完成了创建图表的 VBA 代码。您可以保存并关闭 VBA 编辑器，并在工作簿中运行这段代码，以创建图表。

下面是完整的示例代码：

Sub CreateChart()
    Dim chartObj As ChartObject
    Set chartObj = Sheets.Add
    chartObj.Chart.ChartType = xlColumnClustered
    chartObj.Chart.SetSourceData Source:=Range("A1:B10")
End Sub

在这个示例中，我们使用 VBA 创建了一个柱状图，并将数据源设置为工作表中的 A1:B10 范围。

通过使用 excel 2007 VBA 中的 Sheets.Add 方法，我们可以轻松地在工作簿的末尾创建图表，并根据需要设置其属性和数据。这个方法为我们提供了更多的灵活性和自动化的能力，使我们能够更高效地处理和管理图表数据。希望这个示例对您有所帮助！