[求助]]在用散点曲线作图时，如何交换 X Y轴？

sten · 发表于 2006-12-3 01:18

dcKXzWwi.rar (2.16 KB, 下载次数: 202)

snood · 发表于 2006-12-3 19:10

如果数据多的话，只能用VBA

sten · 发表于 2006-12-5 10:52

QUOTE:

以下是引用snood在2006-12-3 19:10:28的发言：
如果数据多的话，只能用VBA

数据确实很多，版主能针对这个写个较简单的例子么，我可以学习学习。

winland · 发表于 2006-12-5 12:24

Sub Macro1()
    Dim i As Integer
    Dim strTmpX As Variant
    Dim strTmpY As Variant

    ActiveChart.PlotArea.Select
    For i = 1 To ActiveChart.SeriesCollection.Count
        strTmpX = ActiveChart.SeriesCollection(i).XValues
        strTmpY = ActiveChart.SeriesCollection(i).Values
        ActiveChart.SeriesCollection(i).XValues = strTmpY
        ActiveChart.SeriesCollection(i).Values = strTmpX
    Next i
End Sub

wxsonic · 发表于 2006-12-5 20:03

我也遇到了这个问题，同问！请高手赐教。请问楼上的写的这个程序要怎么运行呢？我是新手，实在是不懂，多谢。

winland · 发表于 2006-12-5 20:06

选取图表,运行宏就可以了.

wxsonic · 发表于 2006-12-5 20:18

我excel太白痴了点-_-#麻烦楼上的能帮帮么，你写的这段程序要先怎么样保存然后再执行呢。多谢

wxsonic · 发表于 2006-12-5 20:26

学会了，太谢谢winland了！这里的人真是太好了。真幸运能找到这样一个学习excel的好地方。

sten · 发表于 2006-12-5 20:44

QUOTE:

以下是引用winland在2006-12-5 12:24:11的发言：

Sub Macro1()
    Dim i As Integer
    Dim strTmpX As Variant
    Dim strTmpY As Variant

    ActiveChart.PlotArea.Select
    For i = 1 To ActiveChart.SeriesCollection.Count
        strTmpX = ActiveChart.SeriesCollection(i).XValues
        strTmpY = ActiveChart.SeriesCollection(i).Values
        ActiveChart.SeriesCollection(i).XValues = strTmpY
        ActiveChart.SeriesCollection(i).Values = strTmpX
    Next i
End Sub

谢谢您，我通过试验，能行。我大概读了下程序，就是设了两个变量，再交换它们的值。虽然我能明白程序，但我想请问：如何知道X轴Y轴的变量值的，我还想改进改进。

winland · 发表于 2006-12-6 12:08

这两个不就是吗?

strTmpX = ActiveChart.SeriesCollection(i).XValues
strTmpY = ActiveChart.SeriesCollection(i).Values

		自动登录	找回密码
密码			免费注册