축 플롯 스와핑 VBA의 분산 형 차트

Question

다음 코드를 사용하면 축을 잘못된 방향으로 그려주는 점을 제외하고는 원하는대로 그래프를 얻을 수 있습니다. 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 

Answer 1

당신은 차트에 데이터를 추가 한 후, 독립적으로 XValues 및 Values를 설정해야합니다. 당신을 위해 그것을 할 것입니다 이러한 방법의

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

하나 :이 그것을하지 않는 경우

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 

, 그럼 그냥 같은 값/xValues를 뒤집습니다.