Entrar com a conta da Microsoft
Entrar ou criar uma conta.
Olá,
Selecionar uma conta diferente.
Você tem várias contas
Escolha a conta com a qual você deseja entrar.

Resumo

No Microsoft Excel, não há um comando interno que anexe, automaticamente, as legendas nos pontos de dados em um gráfico xy (dispersão) ou em um gráfico de bolhas. Entretanto, é possível criar uma macro no Microsoft Visual Basic for Applications para fazer isso. Esse artigo contém um modelo de macro que realiza essa tarefa em um Gráfico de dispersão (xy) No entanto, o mesmo código pode ser usado para um Gráfico de bolhas.

Informações adicionais

A Microsoft fornece exemplos de programação apenas por questões ilustrativas, sem garantias expressas ou implícitas. Isso inclui, mas não está limitado a garantias implícitas de comercialização ou adequação a um determinado propósito. Este artigo pressupõe que você conhece a linguagem de programação demonstrada e também as ferramentas usadas para criar e depurar procedimentos. Os engenheiros de suporte da Microsoft podem ajudar você, fornecendo a explicação da funcionalidade de um determinado procedimento. Entretanto, eles não modificarão esses exemplos para fornecer funcionalidades adicionais ou criar procedimentos específicos para atender às suas necessidades específicas. 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 usar as macros nesse artigo, crie um gráfico usando os dados a seguir: A1: Labels B1: X Values C1: Y Values 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 OBSERVAÇÃO: A tabela não deve conter colunas vazias e a coluna com os rótulos de dados não deve ser separada da coluna que contém os valores de x. O layout dos rótulos e valores deve ser exatamente igual ao formato descrito neste artigo. (A célula do canto superior esquerdo não precisa ser a célula A1.)

Para anexar legendas nos pontos de dados em um gráfico xy (dispersão), siga essas etapas:

  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 Dispersão (XY) e depois clique em Avançar.

    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éries em, clique em Colunas e depois em Avançar.

    4. Na caixa de diálogo Assistente de Gráfico - Etapa 3 de 4 - Opções de Gráfico, clique na guia Avançar.

    5. Na caixa de diálogo Assistente de Gráfico - Etapa 4 de 4 - Local do Gráfico clique na opção Como nova planilha e depois 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 na guia Desenvolvedor, clique em Macros no grupo Código, selecione AttachLabelsToPoints e clique em Executar.

A macro anexa os rótulos nas células A2:A6 para os pontos de dados no gráfico.

Precisa de mais ajuda?

Quer mais opções

Explore os benefícios da assinatura, procure cursos de treinamento, saiba como proteger seu dispositivo e muito mais.

As comunidades ajudam você a fazer e responder perguntas, fazer comentários e ouvir especialistas com conhecimento avançado.

Essas informações foram úteis?

Qual é o seu grau de satisfação com a qualidade do idioma?
O que afetou sua experiência?
Ao pressionar enviar, seus comentários serão usados para aprimorar os produtos e serviços da Microsoft. Seu administrador de TI poderá coletar esses dados. Política de Privacidade.

Agradecemos seus comentários!

×