Definir rótulos de dados personalizados em um gráfico

O procedimento VBA (Visual Basic for Applications) a seguir permitirá que você use valores de célula como rótulos de dados em seus gráficos em Excel para Mac. Para utilizar o procedimento, faça o seguinte:

1. No Excel, clique em Ferramentas > Macros > Registrar Nova Macro.

2. Na caixa Macro da Loja em: suspensa, selecione Pasta de Trabalho de Macro Pessoal.

   Observação: Ao armazenar o procedimento VBA na Pasta de Trabalho de Macro Pessoal, você pode usá-lo em qualquer instância do Excel. Isso significa que ele não se limita apenas a usar em uma única pasta de trabalho.

3. Pressione OK.

4. Acesse Ferramentas > Macros > Parar Gravação.

5. Acesse Ferramentas > Macros > Editor do Visual Basic.

6. O Editor do Visual Basic (VBE) será aberto acima do Excel. No painel de navegação à esquerda, expanda o VBAProject (PERSONAL). Pasta XLSB) para mostrar Module1.

7. Clique duas vezes no Módulo1 para exibir o painel Código, que será aberto no lado direito da janela VBE.

8. O código VBA criado quando você gravou uma nova macro não é necessário, portanto, selecione tudo e pressione Excluir. 

9. Em seguida, selecione o código VBA na caixa de texto abaixo, pressione CMD+C para copiá-lo e cole-o novamente no painel Código com CMD+V. Agora você pode sair do Editor do Visual Basic e voltar para o Excel.

10. Teste a macro criando um gráfico com rótulos de dados. Em seguida, selecione qualquer rótulo de dados no gráfico e execute a macro clicando em Ferramentas > Macros > Macros. Selecione SetCustomDataLabels e pressione Executar. Você será solicitado automaticamente a selecionar seu intervalo de rótulos de dados, então faça isso e pressione OK.  

    Observação: Os procedimentos VBA não podem ser desfeitos, portanto, experimente isso em uma cópia de uma pasta de trabalho. Se você executar o código e não quiser manter os resultados, precisará fechar a pasta de trabalho sem salvá-lo.

11. Ao sair do Excel, certifique-se de optar por salvar alterações no PERSONAL. XLSB para que a macro esteja disponível no futuro.

12. Sempre que você quiser adicionar ou remover rótulos de dados de um gráfico, selecione os rótulos de dados e execute a macro.

13. Você pode usar o Excel > Preferences > Ribbon & Barra de Ferramentas para adicionar um botão para executar a macro na faixa de opções ou na barra de ferramentas.

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