Sub 차트생성()

    ActiveSheet.ChartObjects("매크로 차트").Delete
    
    ActiveSheet.Shapes.AddChart2( _
                Style:=201, _
                XlChartType:=xlColumnClustered).Select
    ActiveChart.SetSourceData Source:=Range("B5").CurrentRegion
    
    With ActiveChart.Parent
    
        .Name = "매크로 차트"
    
        .Top = Range("G5").Top
        .Left = Range("G5").Left
        .Height = Range("G5").MergeArea.Height
        .Width = Range("G5").MergeArea.Width
        
    End With
    
    With ActiveChart
        
        .HasTitle = True
        .ChartTitle.Text = "1사분기 지점별 매출 비교"
        
        .HasLegend = True
        .Legend.Position = xlLegendPositionTop
    
    End With
    
End Sub