|
こんな感じで、どうでしょーか ? 表のあるシートを開いて実行して下さい。
E2:J20 の範囲にグラフを挿入します。
Sub MyChart_Add()
Dim Ch As ChartObject
Dim i As Long
With Range("E2:J20")
Set Ch = ActiveSheet.ChartObjects _
.Add(.Left, .Top, .Width, .Height)
End With
With Ch.Chart
.ChartType = xlXYScatterLines
.SetSourceData Range("A1", Range("B65536").End(xlUp))
.HasLegend = False
.ChartTitle.Text = "気象条件と体温の関係" & vbLf & _
"(データラベル = 体温)"
With .SeriesCollection(1)
.HasDataLabels = True
For i = 1 To .Points.Count
.Points(i).DataLabel.Text = Cells(i + 1, 3).Value
Next i
End With
End With
Set Ch = Nothing
End Sub
|
|