|
ポリンキー さん、こんばんわ。
>テキストデータを読み込み、グラフ(散布図)を作成するマクロを作っています。
>読み込まれたデータの後ろにグラフを表示したいのですが、テキストデータの大きさが
>ファイルによってまちまちなので、位置を指定することができません。
A列の一番下(A65536)のセルから ↑ + End で移動して最下行のセルを取得し、その2つ下のセルを左上にするようにChartObjectを配置しました。
Sub Test()
'AがX,BがY
Dim co As ChartObject, r1 As Range, r2 As Range, Rmax as Long
With ActiveSheet
Set r1 = .Range(.Range("A1"), .Range("A65536").End(xlUp)) 'X
Set r2 = r1.Offset(0, 1) '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
こんな感じです。
|
|