Definir etiquetas de dados personalizadas num gráfico

O seguinte procedimento VBA (Visual Basic for Applications) permite-lhe utilizar valores de células como etiquetas de dados nos seus gráficos no Excel para Mac. Para utilizar o procedimento, faça o seguinte:

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

2. Na caixa pendente Armazenar Macro em: selecione Livro Pessoal de Macros.

   Nota: Ao armazenar o procedimento VBA no Livro Pessoal de Macros, pode utilizá-lo em qualquer instância do Excel. Isto significa que não se limita apenas à utilização num único livro.

3. Prima OK.

4. Aceda a Ferramentas > Macros > Parar Gravação.

5. Aceda a Ferramentas > Macros > Visual Basic Editor.

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

7. Faça duplo clique no Módulo1 para apresentar o painel Código, que será aberto no lado direito da janela do VBE.

8. O código VBA que foi criado quando gravou uma nova macro não é necessário, por isso, selecione tudo e, em seguida, prima Delete. 

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

10. Teste a macro ao criar um gráfico com etiquetas de dados. Em seguida, selecione qualquer etiqueta de dados no gráfico e execute a macro ao clicar em Ferramentas > Macros > Macros. Selecione SetCustomDataLabels e, em seguida, prima Executar. Ser-lhe-á automaticamente pedido para selecionar o intervalo de etiquetas de dados, por isso, faça-o e, em seguida, prima OK.  

    Nota: Os procedimentos VBA não podem ser anulados, por isso, certifique-se de que experimenta isto numa cópia de um livro. Se executar o código e não quiser manter os resultados, terá de fechar o livro sem guardá-lo.

11. Quando sair do Excel, certifique-se de que opta por guardar as alterações em PESSOAL. XLSB para que a macro esteja disponível no futuro.

12. Sempre que quiser adicionar ou remover etiquetas de dados de um gráfico, selecione as etiquetas de dados e execute a macro.

13. Pode utilizar o Excel > Preferências> Friso & Barra de Ferramentas para adicionar um botão para executar a macro a partir do friso ou 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