Dzwebs.Net

撰写电脑技术杂文十余年

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

Admin | 2012-9-23 10:32:54 | 被阅次数 | 13889

温馨提示!

如果未能解决您的问题,请点击搜索;登陆可复制文章,点击登陆

  如下的文章内容,与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"


该杂文来自: Excel杂文

上一篇:vba与选择性粘贴的结合使用

下一篇:VBA修改窗体的代码(Excel版)

网站备案号:

网站备案号:滇ICP备11001339号-7

版权属性:

Copyright 2007-2021-forever Inc. all Rights Reserved.

联系方式:

Email:dzwebs@126.com QQ:83539231 访问统计