[英]Power Point VBA - Change color of each bar
我需要根据值将条形颜色更改为红色或绿色。 代码在柱状图上工作正常,但在瀑布图上不工作。 它说:“不支持此操作。”
请帮助使以下代码瀑布图兼容:
Sub UpdateBarColor()
Dim p As Point
Dim s As Series
Dim c As Chart
Set c = ActiveWindow.Selection.ShapeRange(1).Chart
Set s = c.SeriesCollection(1)
For Each p In s.Points
Debug.Print p.Format.Fill.ForeColor.RGB
Next
End Sub
这会将瀑布图中的条形更改为灰色(即RGB)。您应该能够对其进行修改以适合您的需求
Set c = ActivePresentation.Slides(1).Shapes(1).Chart.SeriesCollection(1)
For Each p In c.Points
p.Format.Fill.ForeColor.RGB = RGB(169, 169, 169)
Next
从图表中获取xvalues,试试看
Dim arr As Variant
Dim i As Integer
With ActivePresentation.Slides(1).Shapes(1).Chart.SeriesCollection(1)
arr = .XValues
For i = LBound(arr) To UBound(arr)
Debug.Print arr(i)
Next
End With
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.