VBA代码如何换行 (vba图表添加x轴)

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。有兴趣可以看以前的文章有介绍说明。