循环通过数据点螺旋图表的图例

Question

所以，我有一个只有一个系列的二维气泡图（x = long，y = lat，z = population）。

我想循环遍历数据点并更改气泡的RGB以编码一些关于某些社交群组的额外信息。

Sub PintarColores()
    Dim p As Point

    Worksheets(2).ChartObjects(1).Activate
    For Each p In ActiveChart.SeriesCollection(1).Points
        p.Format.Fill.ForeColor.RGB = rgbRed
    Next
End Sub

这是将所有点都设置为红色的测试代码，在完成此操作后，我将添加逻辑。

所以在我运行代码之前，我的单个系列图有一个带有一个项目（人口）的图例。运行后，颜色会按预期更改，但图例会更改为经度值列表（y）。

试图搜索周围但找不到原因，任何人都可以放一些光吗？

谢谢！

Answer 1

Axel Richter回答了这个问题。似乎没有办法解决这个问题