VBA

 Dim i As Integer, iColumn As Integer
    Dim iRowStart As Integer, iRowEnd As Integer, iRowOffset As Integer
    Dim r As Range
    Set r = ThisWorkbook.ActiveSheet.Range("A1") ' セル位置計算の起点の設定
    With ActiveSheet.ChartObjects.Add(10, 10, 360, 270).Chart
        .ChartType = xlXYScatterLines
            ' ↑Excel2010の [挿入]=>[グラフ]=>[散布図] に相当する。
        iRowOffset = 1
        For i = 1 To 1
            iRowStart = 1 + iRowOffset
            iRowEnd = 10 + iRowOffset
            iColumn = i + 1
            .SeriesCollection.NewSeries 'Excel:系列の設定、自動で1から系列番号が振られる
                ' ↑Excel2010の [グラフツール]=>[デザイン]=>[データの選択]
                '    =>[データソースの選択]ウィザード=>[追加(A)] に相当する
            With .SeriesCollection(i)
                ' ↑Excel2010の [グラフツール]=>[デザイン]=>[データの選択]
                '    =>[データソースの選択]ウィザード=>[系列i] に相当する
                .Name = Range(r.Cells(iRowOffset, iColumn), r.Cells(iRowOffset, iColumn))
                .Values = Range(r.Cells(iRowStart, 1), r.Cells(iRowEnd, 1))
                .XValues = Range(r.Cells(iRowStart, iColumn), r.Cells(iRowEnd, iColumn))
            End With
        Next i
    End With
Comments