VBA
Sub Test()Dim cht As ChartSet cht = ActiveChartIf cht Is Nothing Then MsgBox "Select a chart"Exit SubEnd IfToggleXY cht, 1End SubSub ToggleXY(cht As Chart, n As Long)Dim tmp As StringDim arr() As StringDim sr As SeriesSet sr = cht.SeriesCollection(n)arr = Split(sr.Formula, ",")tmp = arr(2)arr(2) = arr(1)arr(1) = tmpsr.Formula = Join(arr, ",")End Sub以上是一个简单的
VBA程序，用于交换一个图表系列的X轴和Y轴数据。它首先获取到目标图表对象，并检查是否为空。如果为空，则提示用户选择一个图表。否则，程序调用ToggleXY函数来交换系列数据。在ToggleXY函数中，首先获取到所需系列对象，并使用Split函数将其公式分割为数组。然后，将第二项存储在临时字符串tmp中，并将其替换为第一项。接着，用重新排列的数组重新构建公式，并设置为原公式加上修改后的内容。请注意，在这个示例中只有第一个系列对象可以被修改。如果需要交换多个系列数据，请相应地修改代码以适应您的需求。希望以上内容对您有所帮助！
