使用vba对生成的柱状图进行美化，但无法修改柱状图的颜色

oszy520 · 发表于 2024-4-21 15:38

  方案一：
  ' 遍历图表系列，设置柱形的颜色
For Each series In chart.SeriesCollection
      ' 设置系列的填充颜色
      series.Format.Fill.ForeColor.RGB = RGB(255, 192, 203)
Next series
方案二：
' 遍历图表的数据系列
For Each ser In cht.SeriesCollection
      ' 遍历数据系列的数据点
      For Each pnt In ser.Points
         ' 设置数据点的填充颜色为粉红色
         pnt.Format.Fill.ForeColor.RGB = RGB(255, 192, 203)
      Next pnt
Next ser

方案一可以正常运行，不会有提示错误，但是没有任何的效果；方案二运行到points位置会提示“对象不支持该动作”？使用的是Excel2010版。调试了一天了，都没找到问题在哪儿，麻烦能帮忙解决一下吗？感谢

ww87725244 · 发表于 2024-4-21 16:56

试了一下，没有问题啊

ww87725244 · 发表于 2024-4-21 16:58

模拟了一下，没有问题，我也是2010

oszy520 · 发表于 2024-4-21 17:41

ww87725244 发表于 2024-4-21 16:56
试了一下，没有问题啊

我用了你的代码直接运行也是提示这个错误，是不是缺少什么引用还是其他的问题，我弄这几句代码一天了，所以才来求助的。

oszy520 · 发表于 2024-4-21 17:53

ww87725244 发表于 2024-4-21 16:58
模拟了一下，没有问题，我也是2010

糟糕，我才发现我使用的是WPS2012，运行代码就提示对象不支持该动作，不知道还有办法解决吗？谢谢

		自动登录	找回密码
密码			免费注册

[求助] 使用vba对生成的柱状图进行美化，但无法修改柱状图的颜色