<13-1 차트 생성 기본>

<13-1 차트 생성 기본> 
Dim ws As Worksheet 
Dim rs As Range, rd As Range 
Dim sh As Shape 
Dim ch As Chart 
    
Set ws = Sheets("raw")        ‘raw 시트 
Set rs = ws.Range("a1:b10")    ‘a1:b10영역이 차트 원본 영역 
    
On Error Resume Next 
   ws.ChartObjects.Delete      ‘raw 시트에 차트가 있으면 삭제 
On Error GoTo 0 

'차트생성 : 차트는 shape > chart 순으로 만들어짐 
   Set sh = ws.Shapes.AddChart(XlChartType.xlColumnClustered)   ‘차트 종류의 이름 
   Set ch = sh.Chart 
    
   '차트 요소 생성 
   With ch 
      .SetSourceData rs                     ‘차트 원본범위 
      .HasTitle = True                       ‘차트 제목 설정 
      .ChartTitle.Text = "제품별 판매수량"     ‘차트 제목 입력 
      .HasLegend = False                    ‘범례 해제 
   End With 
    
  '차트 이름, 위치, 크기 
  With sh 
      Set rd = ws.Range("f1:j10")             ‘차트가 들어갈 범위를 설정 
      .Name = "cht1"                       ‘차트 이름 
      .Top = rd.Top                         ‘차트 위치 
      .Left = rd.Left                         ‘차트 위치 
      .Width = rd.Width                     ‘차트 사이즈 
      .Height = rd.Height                    ‘차트 사이즈 
   
  End With

출처: https://lesserpainbetterlife.tistory.com/812 [전진수블로그 ✝ = ♥:티스토리]