Como utilizar uma macro para adicionar etiquetas a pontos de dados num gráfico de dispersão xy ou num gráfico de bolhas no Excel

Resumo

No Microsoft Excel, não existe nenhum comando incorporado que anexe automaticamente etiquetas de texto a pontos de dados num gráfico xy (dispersão) ou bolhas. No entanto, pode criar uma macro do Microsoft Visual Basic for Applications que o faça. Este artigo contém uma macro de exemplo que executa esta tarefa num gráfico de Dispersão XY. No entanto, o mesmo código pode ser utilizado para um Gráfico de Bolhas.

Mais Informações

A Microsoft fornece exemplos de programação apenas para ilustração, sem garantia expressa ou implícita. Isto inclui, mas não se limita a, as garantias implícitas de comercialização ou adequação a uma finalidade específica. Este artigo pressupõe que está familiarizado com a linguagem de programação que está a ser demonstrada e com as ferramentas que são utilizadas para criar e depurar procedimentos. Os engenheiros de suporte da Microsoft podem ajudar a explicar a funcionalidade de um procedimento específico. No entanto, não modificarão estes exemplos para fornecer funcionalidades adicionais ou procedimentos de construção para satisfazer os seus requisitos específicos. O código de exemplo neste artigo pressupõe que os dados e as etiquetas associadas estão dispostos numa folha de cálculo de acordo com o seguinte formato:

• A primeira coluna contém as etiquetas de dados.

• A segunda coluna contém os valores x do gráfico xy (dispersão).

• A terceira coluna e as colunas subsequentes contêm os valores y para o gráfico xy (dispersão).

NOTA: embora o exemplo fornecido contenha apenas uma coluna de dados para valores y, pode utilizar mais do que uma série de dados.

Para utilizar as macros neste artigo, crie um gráfico com os seguintes dados: A1: Etiquetas B1: Valores X C1: Valores Y A2: DataPoint1 B2: 12 C2: 5 A3: DataPoint2 B3: 9 C3: 7 A4: DataPoint3 B4: 5 C4: 3 A5: DataPoint4 B5: 4 C5: 8 A6: DataPoint5 B6: 1 C6: 4 NOTA: a tabela não deve conter colunas vazias e a coluna que contém as etiquetas de dados não deve ser separada da coluna que contém os valores x. As etiquetas e os valores têm de ser definidos exatamente no formato descrito neste artigo. (A célula superior esquerda não tem de ser a célula A1.)

Para anexar etiquetas de texto a pontos de dados num gráfico xy (dispersão), siga estes passos:

1. Na folha de cálculo que contém os dados de exemplo, selecione o intervalo de células B1:C6.

2. No Microsoft Office Excel 2003 e em versões anteriores do Excel, siga estes passos:

   1. Clique em Gráfico no menu Inserir.

   2. Na caixa de diálogo Assistente de Gráficos – Passo 1 de 4 – Tipo de Gráfico , clique no separador Tipos Padrão. Em Tipo de gráfico, clique em XY (Dispersão) e, em seguida, clique em Seguinte.

   3. Na caixa de diálogo Assistente de Gráficos – Passo 2 de 4 – Dados de Origem do Gráfico, clique no separador Intervalo de Dados. Em Série em, clique em Colunas e, em seguida, clique em Seguinte.

   4. Na caixa de diálogo Assistente de Gráficos – Passo 3 de 4 – Opções do Gráfico , clique em Seguinte.

   5. Na caixa de diálogo Assistente de Gráficos – Passo 4 de 4 -Localização do Gráfico , clique na opção Como nova folha e, em seguida, clique em Concluir.

   No Microsoft Office Excel 2007, siga estes passos:

   1. Clique no separador Inserir , clique em Dispersão no grupo Gráficos e, em seguida, selecione um tipo.

   2. No separador Estrutura , clique em Mover Gráfico no grupo Localização , clique em Nova folha e, em seguida, clique em OK.

3. Prima ALT+F11 para iniciar o Visual Basic Editor.

4. No menu Inserir, clique em Módulo.

5. Escreva o seguinte código de exemplo na folha de módulos:

   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

6. Prima Alt+Q para regressar ao Excel.

7. Mude para a folha de gráfico.

8. No Excel 2003 e em versões anteriores do Excel, aponte para Macro no menu Ferramentas e, em seguida, clique em Macros. Clique em AttachLabelsToPoints e, em seguida, clique em Executar para executar a macro.
   
   No Excel 2007, clique no separador Programador , clique em Macro no grupo Código , selecione AttachLabelsToPoints e, em seguida, clique em Executar.

A macro anexa as etiquetas nas células A2:A6 aos pontos de dados no gráfico.