在Excel图表中：如何使用VBA将图表行格式从一个系列“复制”到另一个系列？

Question

对于某些x和y，使得SeriesCollection（x）存在且SeriesCollection（y）存在，我尝试执行以下操作：

ActiveChart.SeriesCollection(x).Format.Line = ActiveChart.SeriesCollection(y).Format.Line

但是，这给了我一个错误：“对象不支持这个属性或方法”。如何将一个系列的行格式从图表复制到图表中的另一个系列？

Answer 1

您必须遍历.Format.Line的每个属性

（将X和Y用作指示序列的变量令人困惑，因为X和Y通常是指这些序列的数据。）

Set srsA = ActiveChart.SeriesCollection(A)
Set srsB = ActiveChart.SeriesCollection(B)

srsA.Format.Line.ForeColor = srsB.Format.Line.ForeColor
srsA.Format.Line.Weight = srsB.Format.Line.Weight

等