Como usar uma macro para adicionar rótulos nos pontos de dados em um gráfico de dispersão xy ou em um 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.

Informações adicionais

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. Neste artigo, o código de exemplo pressupõe que os dados e rótulos associados são organizados em uma planilha de acordo com o formato a seguir:

• A primeira coluna contém os rótulos de dados.

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

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

OBSERVAÇÃO: Embora o exemplo fornecido contenha apenas uma coluna de dados para os valores de y, é possível usar mais de 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. O layout dos rótulos e valores deve ser exatamente igual ao 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 planilha que contém os dados de exemplo, selecione o intervalo de célula B1:C6.

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

   1. Clique em Gráfico no menu Inserir.

   2. Na caixa de diálogo Assistente de Gráfico - Etapa 1 de 4 - Tipo de Gráfico, clique na guia 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áfico - Etapa 2 de 4 - Dados de Origem do Gráfico, clique na guia 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, execute as seguintes etapas:

   1. Clique na guia Inserir, clique em Dispersão no grupo Gráficos e depois selecione um tipo.

   2. Na guia Design clique em Mover Gráfico no grupo Local, clique em Nova planilha e depois clique em OK.

3. Pressione ALT+F11 para iniciar o Editor do Visual Basic.

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

5. Digite o seguinte código de exemplo na planilha de módulo:

   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. Pressione ALT+Q para voltar ao Excel.

7. Alterne para a planilha do gráfico.

8. No Excel 2003 e em versões anteriores do Excel, aponte para Macro no menu Ferramentas e clique em Macros. Clique em AttachLabelsToPoints e depois 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 os rótulos nas células A2:A6 para os pontos de dados no gráfico.