1

次のコードを使用すると、軸が間違った方向にプロットされることを除いて、必要なグラフが正確に得られます。XデータをYデータに、またはその逆に変更するにはどうすればよいですか?

    Sub AddChartObject()


    Set cht = ActiveChart
    Set rng = ActiveSheet.Range("AB30:AD40")



    With ActiveSheet.ChartObjects.Add(Left:=rng.Left, Width:=rng.Width, Top:=rng.Top, Height:=rng.Height)
     '(Left:=100, Width:=375, Top:=75, Height:=225)
        .Chart.ChartType = xlXYScatterLines

        .Chart.SetSourceData Source:=Range("O30:O40,N30:N40")


    End With


End Sub
4

1 に答える 1

3

データをグラフに追加した後、XValuesと を個別に設定する必要があります。Values

Dim srs as Series

With ActiveSheet.ChartObjects.Add(Left:=rng.Left, Width:=rng.Width, Top:=rng.Top, Height:=rng.Height)
 '(Left:=100, Width:=375, Top:=75, Height:=225)
    .Chart.ChartType = xlXYScatterLines

    '.Chart.SetSourceData Source:=Range("O30:O40,N30:N40")
    Set srs = .Chart.SeriesCollection.NewSeries
    srs.Name = "The series name" '<-- edit as needed
    srs.XValues = Range("O30:O40")
    srs.Values = Range("N30:N40")

End With

それでもうまくいかない場合は、次のように Values/xValues を反転します。

    srs.XValues = Range("N30:N40")
    srs.Values = Range("O30:O40")

これらの方法のいずれかがそれを行います。

于 2013-04-02T16:23:27.467 に答える