Dim aa As String
Dim bb As String

Sub ki277a()
Sheets("Sheet1").Select
Application.ScreenUpdating = False
    Range("G1:K7").Select
    Selection.ClearContents
        aa = "日付"
        bb = "製品"
    ki277c
    ki277d
End Sub

Sub ki277b()
Sheets("Sheet1").Select
Application.ScreenUpdating = False
    Range("G1:K7").Select
    Selection.ClearContents
        bb = "日付"
        aa = "製品"
    ki277c
    ki277d
End Sub


Sub ki277c()
    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "Sheet1!R1C1:R27C4").CreatePivotTable TableDestination:=Range("G2"), _
        TableName:="ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ1"
    ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ1").SmallGrid = False
    With ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ1").PivotFields(aa)
        .Orientation = xlRowField
        .Position = 1
    End With
    With ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ1").PivotFields(bb)
        .Orientation = xlColumnField
        .Position = 1
    End With
    With ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ1").PivotFields("数量")
        .Orientation = xlDataField
        .Position = 1
    End With
    Application.CommandBars("PivotTable").Visible = False
     Range("F1").Select
End Sub

Sub ki277d()
     shc = ActiveSheet.ChartObjects.Count
    If shc = 1 Then
        ActiveSheet.ChartObjects.Select
        Selection.Delete
    Else
         If shc > 1 Then
            MsgBox "図形が" & shc & "個あります手で消去してください"
         End If
    End If

    Charts.Add
    ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("g3")
    ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
    Range("F1").Select
      
   ActiveSheet.ChartObjects.Select
    chmane = Selection.Name
        
    ActiveSheet.ChartObjects(chmane).Activate
    ActiveChart.ChartArea.Select
    ActiveSheet.Shapes(chmane).ScaleHeight 1.44, msoFalse, msoScaleFromTopLeft
    Range("G1").Select
End Sub