在excel中使用宏设置图表格式

Question

我正在尝试创建一个在Excel中设置图表格式的宏，以便我的所有图表都具有相同的格式，但数据不同。通常我只会粘贴格式，但这些图表是使用插件制作的，它们似乎与“粘贴格式”不兼容。每个图表与图表数据一起位于不同的工作表中。

我的图表有3个系列。每个系列都有特定的格式，例如系列1:圆形标记，大小为-3pt，无标记线，绿色填充。系列2:圆形记号笔，3pt大小，黑色记号线，黄色填充。系列3:圆形记号笔，3pt大小，无记号线，红色填充。

此外，图表需要一个特定的大小来表示(还不确定确切的大小，但想必这应该很容易编辑)。

为了让图表看起来像我想要的样子，我只需要更改默认的参数。有人能帮上忙吗？

Answer 1

使用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

上面的代码应该让您了解如何编写宏，并替换正确的工作表和图表名称。理想情况下，您还可以使用一些循环来遍历图表和图表中的序列

For each chart in Thisworkbook.Sheet("Sheet1").ChartObjects
For each series in chChart.seriescollection

要获得您想要更改的确切值，我建议您手动录制所做更改的宏，或者使用编辑器对象浏览器( VBA Editor中的F2)查找可能的值。