使用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)来查找可能的值。