ppt vba编程代码大全_VBA专题09：基本的Excel图表编程代码

学习Excel技术，关注微信公众号：

excelperfect

图表是数据可视化的一种常用呈现方式，VBA代码可以帮助我们自动化创建图表及对图表进行相关的操作，特别是当工作表中有大量图表需要进行重复修改时，VBA十分有用。

下面是一些基本的Excel图表编程代码，供参考！

代码1：创建图表

方法1

Sub CreateChart()    Dim rng As Range    Dim cht As Object      '用于绘制图表的数据区域    Set rng =ActiveSheet.Range("A1:B10")      '创建图表    Set cht = ActiveSheet.Shapes.AddChart2      '添加图表数据    cht.Chart.SetSourceData Source:=rng      '确定图表类型    cht.Chart.ChartType = xlXYScatterLinesEnd Sub

方法2

Sub CreateChart()    Dim rng As Range    Dim cht As ChartObject      '用于绘制图表的数据区域    Set rng =ActiveSheet.Range("A1:B10")      '创建图表    Setcht = ActiveSheet.ChartObjects.Add( _        Left:=ActiveCell.Left, _        Width:=500, _        Top:=ActiveCell.Top, _        Height:=300)          '添加图表数据    cht.Chart.SetSourceData Source:=rng      '确定图表类型    cht.Chart.ChartType = xlXYScatterL