使用macros在Excel中格式化图表
我正在尝试创build一个将在Excel中格式化图表的macros,以便我所有的图表都具有相同的格式,但数据不同。 通常我只是粘贴格式,但是这些图表是使用插件制作的,而且它们看起来与“粘贴格式”不兼容。 每个图表都与图表数据一起位于不同的工作表中。
我的图表有3个系列。 每个系列都有一个特定的格式,例如系列1:圆形标记,大小3pt,无标记线,绿色填充。 系列2:圆形标记,大小3pt,黑色标记线,黄色填充。 系列3:圆形标记,大小3pt,无标记线,红色填充。
此外,图表需要为演示文稿的特定大小(尚不确定确切的大小,但大概是应该很容易编辑)。
这些是我需要从默认更改的唯一参数,以便让图表看起来如何我想要它们。 谁能帮忙?
图表格式可以用VBA很容易地完成:
Dim chChart as chart set chChart = Thisworkbook.Sheet("Sheet1").ChartObjects("Chart1").Chart With chChart seriescollection(1).Markerforegroundcolor = rgb(255,255,255) seriescollection(1).Markerbackgroundcolor = rgb(255,255,255) seriescollection(1).interior.color = rgb(255,255,255) End With
上面的代码应该给你一个如何写macros的想法,replace正确的图表和图表名称。 理想情况下,您还可以使用一些循环来遍历图表中的图表和系列
For each chart in Thisworkbook.Sheet("Sheet1").ChartObjects For each series in chChart.seriescollection
要获得想要更改的确切值,我build议您录制一个手动进行更改的macros,或者使用编辑器对象浏览器(VBA编辑器中的F2)来查找可能的值。