六合开奖结果现场直播欢迎诸位!收藏本站注 册登 陆
常用三肖中特马:基础知识网络知识操作系统WPS网页制作数据库算法网页成功之路网络安全最新技术古典mid流行midmid背景下载中心
您现在的位置:首页 > 三肖中特马 > 文章页

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

Admin | 2012-9-23 10:32:54 | ReadNums | 7454 | 标签 六合开奖结果现场直播 | 打印本页
     

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


问题未解决:在线咨询我要在线咨询问题

天下采天空彩与你同行

(访客)
内容实用原创,讲得很好。
20xx年x月x日
(站长)
有问题请在线咨询。
20xx年x月x日