学习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