如何在VBA中根据条件对excel XY散点图中的点进行着色？

Sub ColorScatterPlotPoints()
    Dim chartObj As ChartObject
    Dim scatterPlot As Series
    Dim dataRange As Range
    Dim point As Point
    
    ' 获取散点图对象
    Set chartObj = ActiveSheet.ChartObjects("Chart 1")
    Set scatterPlot = chartObj.Chart.SeriesCollection(1)
    
    ' 获取数据范围
    Set dataRange = Range("A2:B10") ' 假设数据范围为A2:B10
    
    ' 遍历每个数据点
    For Each point In scatterPlot.Points
        ' 获取数据点的X和Y值
        Dim xValue As Double
        Dim yValue As Double
        xValue = dataRange.Cells(point.Index, 1).Value
        yValue = dataRange.Cells(point.Index, 2).Value
        
        ' 根据条件设置数据点的颜色
        If xValue > 5 And yValue > 10 Then
            point.Format.Fill.ForeColor.RGB = RGB(255, 0, 0) ' 红色
        ElseIf xValue < 5 And yValue < 10 Then
            point.Format.Fill.ForeColor.RGB = RGB(0, 255, 0) ' 绿色
        Else
            point.Format.Fill.ForeColor.RGB = RGB(0, 0, 255) ' 蓝色
        End If
    Next point
End Sub