Sub グラフ1()
Sheets("sheet1").Select
ActiveSheet.ChartObjects.Select
'
    ActiveChart.ChartType = xl3DPie
    ActiveWindow.Visible = False
    Windows("275.xls").Activate
    Range("G1").Select
End Sub
Sub グラフ2()
ActiveSheet.ChartObjects.Select
'
    ActiveChart.ChartType = xl3DAreaStacked
    ActiveWindow.Visible = False
    Windows("275.xls").Activate
    Range("G1").Select
End Sub
Sub グラフ3()
ActiveSheet.ChartObjects.Select
'
    ActiveChart.ChartType = xlLineMarkers
    ActiveWindow.Visible = False
    Windows("275.xls").Activate
    Range("G1").Select
End Sub
Sub グラフ4()
ActiveSheet.ChartObjects.Select
'
    ActiveChart.ChartType = xlConeColClustered
    ActiveWindow.Visible = False
    Windows("275.xls").Activate
    Range("G1").Select
End Sub
Sub グラフ5()
ActiveSheet.ChartObjects.Select
'
    ActiveChart.ChartType = xlCylinderColClustered
    ActiveWindow.Visible = False
    Windows("275.xls").Activate
    Range("G1").Select
End Sub
Sub グラフ6()
ActiveSheet.ChartObjects.Select
'
    ActiveChart.ChartType = xlColumnClustered
    ActiveWindow.Visible = False
    Windows("275.xls").Activate
    Range("G1").Select
End Sub