使用以下代码,我得到了我想要的图形,只是它以错误的方式绘制了轴。如何将 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