我正在使用適用于企業 Excel 的 Microsoft 365 應用程式并遵循本教程：
Sub ChangePointColour()
Dim Cht As Chart
Dim Ser As Series
Dim Pt As Point
'Seect the chart
ActiveSheet.ChartObjects(1).Activate
Set Cht = ActiveChart
Set Ser = Cht.SeriesCollection(1)
PointCount = Ser.Points.Count
For i = 1 To PointCount
'Get the colour from column F
ThisColor = ActiveSheet.Cells(i 1, 6).Value
Select Case ThisColor
Case "Red"
Ser.Points(i).Format.Fill.ForColor.RGB = RGB(255, 0, 0)
Case "Green"
Ser.Points(i).Format.Fill.ForColor.RGB = RGB(0, 255, 0)
Case "Amber"
Ser.Points(i).Format.Fill.ForColor.RGB = RGB(255, 191, 0)
End Select
Next i
End Sub
uj5u.com熱心網友回復：
前景色而不是前色。
轉載請註明出處，本文鏈接：https://www.uj5u.com/caozuo/465696.html
下一篇：如何在excel中合并多個序列？