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

andysky

代码不错

chenjun

QUOTE:

以下是引用winland在2006-12-6 12:08:52的发言：

这两个不就是吗?

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

这两个变量是可以记录变体数组，但再赋给系列时就是固定的数组而不是对单元格区域的引用，这样就有2个问题要考虑：
1.不能随单元格变化而变化图表；
2.常量数组在图表系列线公式中受公式字符串长度限制，如果原来图表的数据点很多，就有可能出错。

最好是对每一个图表系列重新指定引用单元格区域。

winland

版主所言极是，我还真没有注意这个，做完也没有看图的数据源了。

所以我的这个方法是完全不可行的。惭愧。

那怎么获得图表的数据源范围呢？找了会儿，没找到。。。

chenjun

如果做图表时就知道是引用什么区域，那就在程序中调换每个系列的引用；
如果是对一现有的图表，就要取出每个系列线的公式，分析并调换引用，这个图表宝典一书中有例子，那是考虑到所有情况的。

没有直接取图表数据源的方法。

winland

用每个Series的Formula重新写了一个。不知道不同的Excel版本会不会有不同。

Sub Macro1()
    Dim i As Integer
    Dim rangeX As Range
    Dim rangeY As Range
    Dim tmpA() As String
   
    ActiveChart.PlotArea.Select
    For i = 1 To ActiveChart.SeriesCollection.Count
        tmpA = Split(ActiveChart.SeriesCollection(i).Formula, ",")
        Set rangeX = Application.Evaluate(tmpA(2))
        Set rangeY = Application.Evaluate(tmpA(1))
        ActiveChart.SeriesCollection(i).Values = rangeY
        ActiveChart.SeriesCollection(i).XValues = rangeX
    Next i
End Sub

tutututututu

敢问一个问题，怎么样才能在“源数据”——“系列”里面出现可以分别定义“X”、“Y”轴的选项？

我的怎么也出不来，都做不出像楼主那样的图！555

yanf

数据复制,选择性粘贴时转置,即可

lwxg

Sub Main()
Dim tmpFileName As String
Dim tmpFileList, tmpFileIndex As Long

tmpFileList = Application.GetOpenFilename("XY plot File(*.xls),*.xls", , "确定需要转换XY图方向的文件", , True)
If VarType(tmpFileList) = vbBoolean Then
    Exit Sub
Else
    Application.ScreenUpdating = False
    Application.StatusBar = "数据处理中，请稍等..."
    For tmpFileIndex = 1 To UBound(tmpFileList)
        Application.StatusBar = tmpFileIndex & "/" & UBound(tmpFileList) & "文件处理中..."
        tmpFileName = tmpFileList(tmpFileIndex)
        ChangeXYPlot tmpFileName
    Next tmpFileIndex
End If
Application.StatusBar = False
End Sub
Sub ChangeXYPlot(myFileName As String)
Dim c As Chart
Dim XYPlot As Series
Dim tmpX As Variant, tmpY As Variant
Dim ws As Worksheet
Dim i As Long, j As Long
Dim tmpBook As Workbook
Set tmpBook = Application.Workbooks.Open(myFileName, , True)
For Each ws In tmpBook.Worksheets
    For i = 1 To ws.ChartObjects.Count
        Set c = ws.ChartObjects(i).Chart
        For j = 1 To c.SeriesCollection.Count
            Set XYPlot = c.SeriesCollection(i)
            With XYPlot
            Select Case .ChartType
            Case xlXYScatter, xlXYScatterLines, xlXYScatterLinesNoMarkers, xlXYScatterSmooth, xlXYScatterSmoothNoMarkers
                tmpX = .XValues
                tmpY = .Values
                .XValues = tmpY
                .Values = tmpX
               
            End Select
            End With
        Next j
    Next i
    DoEvents
Next ws
tmpBook.Close False
End Sub
'----代码结束-------
使用方法：
1.随便建立一个新的工作表，按ALT+F11键进入VBA编辑状态
2.点菜单栏的“插入”，选“模块”
3.将以上代码复制，然后粘贴到空白处。如果需要可以按保存按钮进行保存。
4.按F5键执行宏，选择main执行
5.出现提示框，要求选择要执行X-Y方向转换的图所在的文件。（一次可以多选，但只限为一个目录下）
6.点“打开”按钮，然后开始自动转换，它会搜索工作簿内所有的图，看它是否为X-Y散点图类型，如果是则完成转换工作。直到所有文件都被执行。

[此贴子已经被作者于2007-3-28 0:30:07编辑过]

心冉

怎么都弄不懂

[em06]

dubing222

我是2003版本的怎么使用啊

[em03]