VBA-在散点图中的X和Y范围之间切换

Question

我想使用一个for循环在活动散点图中的所有系列的X和Y范围之间切换。 现有系列的价值如下：

=SERIES("Name",Sheet1!$B$3:$B$23,Sheet1!$A$3:$A$23)

我想更改为：

=SERIES("Name",Sheet1!$A$3:$A$23,Sheet1!$B$3:$B$23)

在X和Y范围之间切换。

请帮助完成该功能：

Sub SwitchXY()

    For i = 1 To ActiveChart.SeriesCollection.Count

    'Please help here!

    Next
End Sub

Answer 1

我不确定在这种情况下为什么要在下一个中使用for，但是如果您只是想更改图表的公式。我相信您可以通过这种方式工作：

Sub SwitchXY()
Dim formulaArray() As String

formulaArray = Split(ActiveChart.FullSeriesCollection(1).Formula, ",")

ActiveChart.FullSeriesCollection(1).Formula = formulaArray(0) & "," & _
                                            formulaArray(2) & "," & _
                                            formulaArray(1) & "," & _
                                            formulaArray(3)
End Sub