Objeto DataLabel (PowerPoint)

Representa o rótulo de dados em um ponto de gráfico ou linha de tendência.

Comentários

Em uma série, o objeto DataLabel é um membro da coleção DataLabels. A coleção DataLabels contém um objeto DataLabel para cada ponto. Para uma série sem pontos definíveis (por exemplo, uma série de área), a coleção DataLabels contém um único objeto DataLabel.

Exemplo

Observação

[!OBSERVAçãO] Embora o código a seguir se aplique ao Microsoft Word, você poderá modificá-lo para se aplicar ao PowerPoint.

Use DataLabels (index), onde index é o número de índice do rótulo de dados, para retornar um único objeto DataLabel . O exemplo a seguir define o formato de número para o quinto rótulo de dados na primeira série do primeiro gráfico do documento ativo.

With ActiveDocument.InlineShapes(1)

    If .HasChart Then

        .Chart.SeriesCollection(1).DataLabels(5).NumberFormat = "0.000"

    End If

End With

Observação

[!OBSERVAçãO] Embora o código a seguir se aplique ao Microsoft Word, você poderá modificá-lo para se aplicar ao PowerPoint.

Use a propriedade Point.DataLabel para retornar o objeto DataLabel para um único ponto. O exemplo a seguir ativa o rótulo de dados para o segundo ponto na primeira série do primeiro gráfico do documento ativo e define o texto do rótulo de dados como "Saturday".

With ActiveDocument.InlineShapes(1)

    If .HasChart Then

        With .Chart.SeriesCollection(1).Points(2)

            .HasDataLabel = True

            .DataLabel.Text = "Saturday"

        End With

    End If

End With

Observação

[!OBSERVAçãO] Embora o código a seguir se aplique ao Microsoft Word, você poderá modificá-lo para se aplicar ao PowerPoint.

Em uma linha de tendência, a propriedade Trendline.DataLabel retorna o texto mostrado na linha de tendência. Esse texto pode ser a equação, o valor R-quadrado ou ambos (se ambos estiverem sendo mostrados). O exemplo a seguir configura o texto da linha de tendência para a primeira linha de tendência da primeira série do primeiro gráfico do documento ativo para mostrar somente a equação.

With ActiveDocument.InlineShapes(1)

    If .HasChart Then

        With .Chart.SeriesCollection(1).Trendlines(1)

            .DisplayRSquared = False

            .DisplayEquation = True

        End With

    End If

End With

Confira também

Referência de modelo de objeto do PowerPoint

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.