如何实现添加和删除图表(excel图表怎么删除)

Excel对于数据进行图例化显示是一个十分明显的参考，很多数据不能直观地表现出其背后的意义，通过图例化显示，就可以一目了然地明白，数据的真正意义。

本节将介绍一下，如何使用工作表进行添加图例。

我们将用一个对象：ChartObjects

当然了，这只是个复数形式对象，显然它是一个集合，其内部包含了许多ChartObject对象。

学习过程中，这两个对象都要一起来学习。

ChartObjects负责添加、删除其子对象ChartObject。

如下图所示：

图中添加了一个图例，其过程为代码实现，对过修改ChartObject属性，来实现对图例的外观形式。

如下图所示：

还是用代码来说明一下吧。

'添加图表 Private Sub CommandButton1_Click() Dim ws As Worksheet Set ws = ActiveSheet Dim obj As Object Set obj = ws.ChartObjects.Add(200, 20, 200, 200) '新建图表 obj.RoundedCorners = True '图表为圆角 With obj With .Chart .HasTitle = True '图表标题可见 .ChartTitle.Text = "ABC" '设置图表标题 .ChartWizard Source:=Worksheets("sheet1").Range("A1:B5"), _ gallery:=xlColumn, Format:=6, PlotBy:=xlColumns, _ categorylabels:=1, serieslabels:=0, HasLegend:=1 End With End With 'obj.Duplicate '复制并选择新图表 'obj.Delete'删除图表 End Sub

删除图表

'删除图表 Private Sub CommandButton2_Click() Dim obj As Object For Each obj In ActiveSheet.ChartObjects obj.Delete Next obj End Sub

其中，图表属性如下：