Excel에서 매크로를 사용하여 xy 분산형 차트 또는 거품형 차트의 데이터 요소에 레이블을 추가하는 방법

기술 자료 번역 기술 자료 번역
기술 자료: 213750 - 이 문서가 적용되는 제품 보기.
모두 확대 | 모두 축소

요약

Microsoft Excel에서는 xy(분산형) 또는 거품형 차트의 데이터 요소에 텍스트 레이블을 자동으로 연결하는 명령을 기본 제공하지 않습니다. 대신 이러한 작업을 수행하는 Microsoft Visual Basic for Applications 매크로를 만들 수 있습니다. 이 문서에는 XY 분산형 차트에서 이러한 작업을 수행하는 예제 매크로가 있으며, 거품형 차트의 경우에도 같은 코드를 사용할 수 있습니다.

추가 정보

Microsoft는 모든 보증(상품, 특정 목적에 대한 적합성 및 비침해에 대한 묵시적인 보증을 포함하며 이에 제한되지 않음)을 배제하며 예를 보여주기 위한 목적으로만 이 프로그래밍 예제를 제공합니다. 본 문서의 내용은 프로시저를 작성하고 디버깅하는 데 사용되는 도구 및 여기서 설명하는 프로그래밍 언어에 익숙한 사용자를 대상으로 합니다. Microsoft 기술 지원 담당자는 사용자에게 도움이 되도록 특정 절차에 대한 기능을 설명할 수 있지만 사용자의 특정 목적에 맞도록 예제를 수정하여 추가 기능을 제공하거나 절차를 구성하지는 않습니다. 프로그래밍에 익숙하지 않은 사용자는 MCP(Microsoft Certified Partner)의 도움을 받거나 마이크로소프트 고객기술지원부(02-508-0040)로 문의하십시오. MCP에 대한 자세한 내용은 다음 Microsoft 웹 사이트를 방문하십시오.
http://www.microsoft.com/partner/referral/
사용 가능한 지원 옵션 및 Microsoft에 문의하는 방법에 대한 자세한 내용을 보려면 다음 Microsoft 웹 사이트를 방문하십시오.
기술지원 서비스 안내
이 문서의 예제 코드에서는 데이터와 관련 레이블이 다음과 같은 형식에 따라 워크시트에 배열되어 있다고 가정합니다.
  • 첫 번째 열에는 데이터 레이블이 있습니다.
  • 두 번째 열에는 xy(분산형) 차트의 x 값이 있습니다.
  • 세 번째 및 이후 열에는 xy(분산형) 차트의 y 값이 있습니다.
참고: 제공된 예제에는 y 값에 대한 데이터 열이 하나만 있지만 데이터 계열을 두 개 이상 사용할 수도 있습니다.

이 문서의 매크로를 사용하려면 다음 데이터를 사용하여 차트를 만듭니다.
표 축소표 확대
A1:레이블B1:X 값C1:Y 값
A2:DataPoint1B2:12C2:5
A3:DataPoint2B3:9C3:7
A4:DataPoint3B4:5C4:3
A5:DataPoin4B5:4C5:8
A6:DataPoint5B6:1C6:4
참고: 표에는 빈 열이 있어서는 안되며, 데이터 레이블이 있는 열은 x 값이 있는 열과 인접해야 합니다. 레이블과 값은 이 문서에서 설명하는 형식과 정확히 일치하도록 배열되어야 합니다. 왼쪽 위 셀이 반드시 셀 A1일 필요는 없습니다.

xy(분산형) 차트의 데이터 요소에 텍스트 레이블을 연결하려면 다음과 같이 하십시오.
  1. 예제 데이터가 있는 워크시트에서 셀 범위 B1:C6을 선택한 다음 삽입 메뉴에서 차트를 누릅니다.
  2. 차트 마법사 - 4 단계 중 1 단계 - 차트 종류 대화 상자에서 표준 종류 탭을 누릅니다. 차트 종류 아래에서 분산형을 누르고 다음을 누릅니다.
  3. 차트 마법사 - 4 단계 중 2 단계 - 차트 원본 데이터 대화 상자에서 데이터 범위 탭을 누릅니다. 방향에서 을 누르고 다음을 누릅니다.
  4. 차트 마법사 - 4 단계 중 3 단계 - 차트 옵션 대화 상자에서 다음을 누릅니다.
  5. 차트 마법사 - 4 단계 중 4 단계 - 차트 위치 대화 상자에서 새로운 시트로 옵션을 누른 다음 마침을 누릅니다.
  6. Alt+F11을 눌러 Visual Basic Editor를 시작합니다.
  7. 삽입 메뉴에서 모듈을 누릅니다.
  8. 모듈 시트에 다음 예제 코드를 입력합니다.
    Sub AttachLabelsToPoints()
    
       'Dimension variables.
       Dim Counter As Integer, ChartName As String, xVals As String
    
       ' Disable screen updating while the subroutine is run.
       Application.ScreenUpdating = False
    
       'Store the formula for the first series in "xVals".
       xVals = ActiveChart.SeriesCollection(1).Formula
    
       'Extract the range for the data from xVals.
       xVals = Mid(xVals, InStr(InStr(xVals, ","), xVals, _
          Mid(Left(xVals, InStr(xVals, "!") - 1), 9)))
       xVals = Left(xVals, InStr(InStr(xVals, "!"), xVals, ",") - 1)
       Do While Left(xVals, 1) = ","
          xVals = Mid(xVals, 2)
       Loop
    
       'Attach a label to each data point in the chart.
       For Counter = 1 To Range(xVals).Cells.Count
         ActiveChart.SeriesCollection(1).Points(Counter).HasDataLabel = _
             True
          ActiveChart.SeriesCollection(1).Points(Counter).DataLabel.Text = _
             Range(xVals).Cells(Counter, 1).Offset(0, -1).Value
       Next Counter
    
    End Sub
  9. Alt+Q를 눌러 Microsoft Excel로 돌아갑니다.
  10. 차트 시트로 전환합니다.
  11. 도구 메뉴에서 매크로를 가리킨 다음 매크로를 누릅니다. AttachLabelsToPoints를 누른 다음 실행을 눌러 매크로를 실행합니다.

    셀 A2:A6의 레이블이 매크로에 의해 차트의 데이터 요소에 연결됩니다.




?Microsoft 제품 관련 기술 전문가들과 온라인으로 정보를 교환하시려면 Microsoft 뉴스 그룹에 참여하시기 바랍니다.

속성

기술 자료: 213750 - 마지막 검토: 2006년 10월 12일 목요일 - 수정: 3.3
본 문서의 정보는 다음의 제품에 적용됩니다.
  • Microsoft Office Excel 2003
  • Microsoft Excel 2002 Standard Edition
  • Microsoft Excel 2000 Standard Edition
  • Microsoft Excel 97 Standard Edition
  • Microsoft Excel X for Mac
  • Microsoft Excel 2001 for Mac
  • Microsoft Excel 98 for Macintosh
키워드:?
kbhowto kbinfo kbchart kbprogramming kbdtacode KB213750

피드백 보내기

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com