Power Point VBA-更改每個欄的顏色

Question

我需要根據值將條形顏色更改為紅色或綠色。 代碼在柱狀圖上工作正常，但在瀑布圖上不工作。 它說：“不支持此操作。”

請幫助使以下代碼瀑布圖兼容：

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

Answer 1

這會將瀑布圖中的條形更改為灰色（即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