VBA控制图表之获取图表个数、颜色、添加新图表等代码

核心提示：如下的文章内容，与Excel中的图表有关，VBA控制图表之获取图表个数、颜色、添加新图表等代码，为你总结收集了部分常用的VBA操作图表的代码，①获取当前工作表中图表的个数ActiveSheet.ChartObjects.Count②选中当前工作表中图表Chart6ActiveSheet.ChartObjects(&qu

如下的文章内容，与Excel中的图表有关，为你总结收集了部分常用的VBA操作图表的代码。　　

①获取当前工作表中图表的个数

ActiveSheet.ChartObjects.Count

②选中当前工作表中图表Chart6

ActiveSheet.ChartObjects("Chart6").Select

ActiveSheet.ChartObjects("Chart1").Activate

③选中当前图表区域

ActiveChart.ChartArea.Select

④更改工作表中图表的图表区的颜色

Worksheets("Sheet1").ChartObjects("Chart9").Chart.ChartArea.Interior.ColorIndex = 6

⑤更改图表工作表中图表区的颜色

Sheets("Chart8").ChartArea.Interior.ColorIndex = 4

⑥添加新的图表工作表

Charts.Add

⑦指定图表数据源并按列排列

ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A1:D5"),PlotBy:=xlColumns

⑧新图表作为新图表工作表

ActiveChart.Location Where:=xlLocationAsNewSheet

⑨将绘图区颜色变为白色

ActiveChart.PlotArea.Interior.ColorIndex = xlNone

⑩将图表1导出到C盘上并命名为My.gif

Worksheets("Sheet1").ChartObjects(1).Chart.Export Filename:="C：My.gif", FilterName:="GIF"