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

其中，圖表屬性如下：

• Application
• BottomRightCell
• Chart
• Creator
• Height
• 索引
• Left
• Locked
• 名稱
• Parent
• Placement
• PrintObject
• ProtectChartObject
• RoundedCorners
• Shadow
• ShapeRange
• Top
• TopLeftCell
• Visible
• Width
• ZOrder

掌握基本的使用方法就可以了，如果要更加深入地學習如何精确創建圖表，還要學習另一個對象Chart。有興趣可以看以前的文章有介紹說明。