VBA之在WPS中设置图表折线颜色问题

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

唉,真的是一个低级错误,和之前用过的某语言其实有相同之处的,好长时间没碰过了,真的忘了。。。
遥想公瑾当年。。。

  • 8
    点赞
  • 6
    收藏
    觉得还不错? 一键收藏
  • 1
    评论
评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值