<13-2 분산형차트에 레이블 추가 및 마커 변경>

<13-2 분산형차트에 레이블 추가 및 마커 변경> 
   Dim rng As Range, rd As Range 
   Dim sh As Shape 
   Dim ch As Chart 
    
   Dim ser As Series 
   Dim i As Integer, j As Integer 
   Dim c As Range, lbl As Range 
    
   Set rng = Sheet1.Range("b2", Sheet1.Cells(Rows.Count, "c").End(3)) 
    
   On Error Resume Next 
      Sheet1.ChartObjects.Delete 
   On Error GoTo 0 
    
   '차트 생성 
   Set sh = Sheet1.Shapes.AddChart2(, xlXYScatter) 
   Set ch = sh.Chart 
    
   '차트 요소 생성 
   With ch 
      .SetSourceData rng 
      .HasTitle = True 
      .ChartTitle.Text = "제품별 사이즈 측정" 
      .HasLegend = False 
   End With 
    
   '차트 이름, 위치, 크기 
   With sh 
      Set rd = Sheet1.Range("e1:j11") 
      .Name = "cht1" 
      .Top = rd.Top 
      .Left = rd.Left 
      .Width = rd.Width 
      .Height = rd.Height 
   End With 
    
   '레이블 추가 
   Set ser = Sheet1.ChartObjects(1).Chart.SeriesCollection(1) 
   Set lbl = Sheet1.Range("a2", Sheet1.Range("a2").End(xlDown)) 
   ser.HasDataLabels = True 
    
   For Each c In lbl 
      i = i + 1 
      ser.Points(i).DataLabel.Text = c.Value 
   Next 
    
   '일정한 조건 갖추면 색상 변경 
   Dim Yvals, Xvals 
   Yvals = ser.Values 
   Xvals = ser.XValues 
    
       
   For i = LBound(Yvals) To UBound(Yvals) 
      If Yvals(i) >= 170 And Xvals(i) >= 65 Then 
         With ser.Points(i) 
            .MarkerBackgroundColor = RGB(255, 0, 0) 
            .MarkerStyle = -4168 
         End With 
      End If 
    
   Next

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