ぴよ

'グラフ出力位置
Set gdp = wwb.Worksheets("グラフ").Range("A2")
'グラフシートをアクティブ化して出力
wwb.Worksheets("グラフ").Activate
wwb.Worksheets("グラフ").Shapes.AddChart(Left:=gdp.Width, Top:=gdp.Top).Select
Set graph = ActiveChart
graph.ChartType = xlXYScatterLines
graph.SetSourceData Source:=Range(hoge)

graph.Axes(xlValue).MinimumScale = 84
graph.Axes(xlValue).MaximumScale = 92
graph.Axes(xlValue).MajorUnit = 1
graph.Axes(xlValue).MinorUnit = 0.2
graph.Axes(xlValue).MinimumScale = 83

wwb.Worksheets("グラフ").Shapes(Mid(graph.name, 5)).IncrementTop t
wwb.Worksheets("グラフ").Shapes(Mid(graph.name, 5)).IncrementLeft l
l = l + 380
If l = 380 * 3 Then
l = 0
t = t + 250
End If
graph.HasTitle = True

Select Case i
Case Is = 1
graph.Parent.name = wdp.Cells(1, 1) & "100"
graph.ChartTitle.Text = wdp.Cells(1, 1) & "100"
Case Is = 2
graph.Parent.name = wdp.Cells(1, 1) & "200"
graph.ChartTitle.Text = wdp.Cells(1, 1) & "200"
Case Is = 3
graph.Parent.name = wdp.Cells(1, 1)
graph.ChartTitle.Text = wdp.Cells(1, 1)
End Select