如何使用 vba 删除图表（附示例）

您可以在VBA中使用以下方法删除Excel中的图表：

方法 1：从活动工作表中删除所有图形

 Sub DeleteActiveSheetCharts()
ActiveSheet.ChartObjects.Delete
End Sub

此特定宏将从 Excel 中当前活动的工作表中删除所有图表。

方法 2：从整个工作簿中删除所有图表

 Sub DeleteAllWorkbookCharts()

Dim wk As Worksheet

For Each wk In Worksheets

    If wk.ChartObjects.Count > 0 Then
        wk.ChartObjects.Delete
    End If
    
Next wk

End Sub

此特定宏将从整个 Excel 工作簿的每个工作表中删除所有图表。

以下示例展示了如何在实践中使用每种方法。

示例 1：从活动工作表中删除所有图形

假设我们有以下包含两个图表的 Excel 工作表：

我们可以创建以下宏来删除此工作表中的所有图表：

 Sub DeleteActiveSheetCharts()
ActiveSheet.ChartObjects.Delete
End Sub

当我们运行这个宏时，我们会收到以下输出：

请注意，两个图表均已从工作表中删除。

示例 2：从整个工作簿中删除所有图表

假设我们的 Excel 工作簿中有另一个工作表，其中包含另外两个图表：

我们可以创建以下宏来删除工作簿两张表中的所有图形：

 Sub DeleteAllWorkbookCharts()

Dim wk As Worksheet

For Each wk In Worksheets

    If wk.ChartObjects.Count > 0 Then
        wk.ChartObjects.Delete
    End If
    
Next wk

End Sub

一旦执行该宏，两张纸上的所有图形都将被删除：

请注意，在此示例中，我们仅从两个工作表中删除了图表，但此宏将适用于具有任意数量工作表的 Excel 工作簿。

其他资源

以下教程说明如何在 VBA 中执行其他常见任务：

VBA：如何根据单元格值删除行
VBA：如果名称包含特定文本，如何删除工作表
VBA：如何删除文件