차트에서 사용자 지정 데이터 레이블 설정

다음 VBA(Visual Basic for Applications) 절차를 통해 Mac용 Excel 차트에서 셀 값을 데이터 레이블로 사용할 수 있습니다. 절차를 활용하려면 다음을 수행합니다.

1. Excel에서 도구 > 매크로 > 새 매크로 기록 을 클릭합니다.

2. 의 매크로 저장: 드롭다운 상자에서 개인용 매크로 통합 문서를 선택합니다.

   참고: VBA 프로시저를 개인 매크로 통합 문서에 저장하면 Excel의 모든 instance VBA 프로시저를 사용할 수 있습니다. 즉, 단일 통합 문서에서만 사용할 수 있습니다.

3. 확인을 누릅니다.

4. 도구 > 매크로 > 기록 중지로 이동합니다.

5. 도구 > 매크로 > Visual Basic Editor로 이동합니다.

6. VBE(Visual Basic Editor)가 Excel 위에서 열립니다. 왼쪽 탐색 창에서 VBAProject(PERSONAL)를 확장합니다. MODULE1을 표시할 XLSB) 폴더입니다.

7. Module1을 두 번 클릭하여 VBE 창의 오른쪽에 열리는 코드 창을 표시합니다.

8. 새 매크로를 기록할 때 만들어진 VBA 코드는 필요하지 않으므로 모두 선택한 다음 Delete 키를 누릅니다. 

9. 다음으로 아래 텍스트 상자에서 VBA 코드를 선택하고 CMD+C를 눌러 복사한 다음 CMD+V를 사용하여 코드 창에 다시 붙여넣습니다. 이제 Visual Basic 편집기를 종료하고 Excel로 돌아갈 수 있습니다.

10. 데이터 레이블이 있는 차트를 만들어 매크로를 테스트합니다. 그런 다음 차트에서 데이터 레이블을 선택하고 도구 > 매크로 > 매크로 를 클릭하여 매크로를 실행합니다. SetCustomDataLabels를 선택한 다음 실행을 누릅니다. 데이터 레이블 범위를 선택하라는 메시지가 자동으로 표시되므로 확인을 누릅니다.  

    참고: VBA 프로시저는 실행 취소할 수 없으므로 통합 문서의 복사본에서 이 작업을 시도해야 합니다. 코드를 실행하고 결과를 유지하지 않으려면 통합 문서를 저장하지 않고 닫아야 합니다.

11. Excel을 종료할 때 PERSONAL에서 변경 내용을 저장하도록 선택해야 합니다. XLSB를 사용하면 나중에 매크로를 사용할 수 있습니다.

12. 차트에서 데이터 레이블을 추가하거나 제거하려면 언제든지 데이터 레이블을 선택하고 매크로를 실행합니다.

13. Excel > 기본 설정 > 리본 & 도구 모음을 사용하여 리본 또는 도구 모음에서 매크로를 실행하는 단추를 추가할 수 있습니다.

Option Explicit

Sub SetCustomDataLabels()
' make sure a series is selected
    If TypeOf Selection Is DataLabels Or TypeOf Selection Is Point Then
        Selection.Parent.Select
    ElseIf TypeOf Selection Is DataLabel Then
        Selection.Parent.Parent.Select
    End If

    If TypeOf Selection Is Series Then
        Else
        MsgBox "Select a chart series and try again."
        Exit Sub
    End If

    If Selection.HasDataLabels Then
        'If the data labels from cells are already showing, stop showing them and exit.
        'If labels include other info (e.g., values or categories) this will still appear
        If Selection.DataLabels.ShowRange Then
            Selection.DataLabels.ShowRange = False
            Exit Sub
        End If
    End If
 
'Use the InputBox dialog to set the range for the data labels
    On Error Resume Next
        Dim rng As Range
        Set rng = Application.InputBox(Prompt:="Select data label range.", Title:="Data Label Range", Type:=8)
    On Error GoTo 0

    If rng Is Nothing Then Exit Sub ' clicked cancel
        If Selection.HasDataLabels Then
            'This will include the new text from cells into existing data labels
        Else
        'Otherwise add data labels (empty labels)
            Selection.HasDataLabels = True
            Selection.DataLabels.ShowValue = False
        End If
    
    'Create a string that includes the sheet name and range reference.
    Dim rngAddress As String
        rngAddress = "='" & rng.Worksheet.Name & "'!" & rng.Address(RowAbsolute:=True, ColumnAbsolute:=True, External:=False)
        Selection.DataLabels.Format.TextFrame2.TextRange.InsertChartField msoChartFieldRange, rngAddress, 0
        Selection.DataLabels.ShowRange = True

End Sub