使用vba宏以编程方式将彩色垂直带添加到Excel图表

Question

我正在尝试使用vba宏以编程方式将彩色垂直条带添加到excel中的图表。

我有一个图表，其中包含一些数字x轴，从1到50，我想添加一个1 - 10的彩色垂直带，另一个从10 - 20添加不同的颜色，依此类推。

任何帮助或线索

Answer 1

此解决方案使用图像作为绘图区域背景。

这行代码设置背景图像。请务必根据需要更新工作表参考，图表名称和文件名。

ActiveSheet.ChartObjects("Chart 1").Chart.PlotArea.Format.Fill.UserPicture "C:\background.png"

我使用MS Paint创建所需的各种背景图像。以下是步骤：

1. 创建一个新文件并将属性设置为1像素高和X. 像素宽，其中X是您需要的波段数。

2. 将缩放设置为尽可能大。

3. 使用铅笔工具，按照您想要的乐队为每个像素着色 出现。

4. 将图像水平和垂直调整500％;这样做2-3次 得到一个足够大的图像，所以它不必伸展 图表。 （注意：将它留小会产生彩色条的混合 这是可取的。）

5. 保存文件。

如果您的图表将绘制可变数量的点，请准备几个背景图像，然后在代码中选择合适的图像。