MS Excel 宏向气泡图中的气泡添加颜色的问题

Question

我正在使用适用于企业的 Microsoft 365 应用程序 Excel 并遵循本教程：https://www.youtube.com/watch?v=nEOjcyGh1O0 为我的气泡图中的气泡着色。 “Ser.Points(i).Format.Fill.ForColor.RGB = RGB(255, 0, 0)”行抛出错误“运行-time error '438': Object doesn't support this 属性或方法”。请问我该如何解决？

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

Answer 1

ForeColor 而不是 ForColor。

MS Excel 宏向气泡图中的气泡添加颜色的问题

Issue with MS Excel macro adding colour to a bubbles in a bubble chart

excel

vba