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