|
Yuji さん、こんにちわ。
> ActiveChart.ChartType = xlXYScatter
> ActiveChart.SetSourceData Source:=lWsP.Range("N11:N15,M11:M15"), PlotBy:= xlColumns
>
>として、グラフを作成しようとしており、
>N列のデータをx軸に、M列のデータをy軸にしたいのですが、できません。
>(M列のデータがx軸になってしまいます)
ものすごく昔のログですが。
htt p://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=8321;id=excel
これのデータ範囲の部分をちょっと変更して。
Sub Test()
'NがX,MがY
Dim co As ChartObject, r1 As Range, r2 As Range, Rmax As Long
With ActiveSheet
Set r1 = .Range("N11:N15") 'X
Set r2 = .Range("M11:M15") 'Y
End With
With r1
Rmax = .Cells(.Count).Row
End With
With ActiveSheet
'一つあけて下
With Range(.Cells(Rmax + 2, 1), .Cells(Rmax + 21, 10)) '大きさは適当
Set co = ActiveSheet.ChartObjects.Add(.Left, .Top, .Width, .Height)
End With
End With
With co.Chart
.ChartArea.Font.Size = 10
.ChartType = xlXYScatter
.HasLegend = False
.SetSourceData Source:=r2, PlotBy:=xlColumns
.SeriesCollection(1).XValues = r1
End With
Set co = Nothing: Set r1 = Nothing: Set r2 = Nothing
End Sub
こんな感じです。
|
|