MakeGraph6

Sub MakeGraph6(ByVal k As Long, ByRef ws1 As Worksheet, _

ByRef ws2 As Worksheet, ByRef ws3 As Worksheet)

Dim ws4 As Worksheet

Dim wb As Workbook

Dim cht As Chart

Set wb = ws1.Parent

wb.Worksheets("ReadMe").Range("RegMemo1").Value = k

Call MakeGraph5(k, ws1, ws2, ws3)

Set cht = ws3.ChartObjects("メイングラフ").Chart

Call ApplyDataToChart(cht, ws1, ws2, ws3)

End Sub