VBA之在WPS中设置图表折线颜色问题
因工作需要每月要制作报表,但是内容繁琐,尤其是组合图表,在经历多次制作后,巨懒(烂)无比的我终于忍不住了,决意通过宏简化一下制作流程,主要做了生成图表这一方面,日常使用的是WPS,不知道为什么WPS2019录制宏老是不出东西,所以我在微软的Excel中录制好后转移到WPS中,使用没啥大问题,就有一个地方困扰多时,就是组合图表中的虚线颜色设置问题,用了几个方法最终显示的颜色都和我设置的不一样,但是在微软的Excel中没问题,经过多次尝试,最终发现了我犯的这一低级问题(汗😓)。
颜色设置不成功的代码
// 颜色设置不成功
With ActiveChart.FullSeriesCollection(8).Format.Line
.Visible = msoTrue
.ForeColor.RGB = RGB(0, 176, 240)
.Weight = 1.25
.DashStyle = msoLineDash
End With
注意,一定要在设置完折线的样式后再设置颜色
// 颜色设置成功,一定要在设置完折线的样式后再设置颜色
With ActiveChart.FullSeriesCollection(8).Format.Line
.Visible = msoTrue
.Weight = 1.25
.DashStyle = msoLineDash
.ForeColor.RGB = RGB(0, 176, 240)
End With
唉,真的是一个低级错误,和之前用过的某语言其实有相同之处的,好长时间没碰过了,真的忘了。。。
遥想公瑾当年。。。