Método Chart.ApplyDataLabels (Project)
Aplica rótulos de dados a todas as séries em um gráfico.
Sintaxe
expressão. ApplyDataLabels (Type,IMsoLegendKey,AutoText,HasLeaderLines,ShowSeriesName,ShowCategoryName,ShowValue,ShowPercentage,ShowBubbleSize,Separator)
expressão Uma variável que representa um objeto Chart.
Parâmetros
Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
---|---|---|---|
Type | Opcional | Office.XlDataLabelsType | O tipo de rótulo de dados a ser aplicado. O valor padrão é xlDataLabelsShowValue. |
IMsoLegendKey | Opcional | Variante | True para mostrar o código da legenda ao lado do ponto. O valor padrão é False. |
AutoText | Opcional | Variante | True se o objeto gerar automaticamente o texto adequado com base no conteúdo. |
HasLeaderLines | Opcional | Variantes | True se a série tiver linhas de preenchimento. |
ShowSeriesName | Opcional | Variantes | True para habilitar o nome da série para o rótulo de dados. False para desabilitar o nome da série. |
ShowCategoryName | Opcional | Variantes | True para habilitar o nome da categoria para o rótulo de dados. False para desabilitar o nome da categoria. |
ShowValue | Opcional | Variantes | True para habilitar o valor para o rótulo de dados. False para desabilitar o valor. Se o parâmetro Type não for especificado, o ShowValue será considerado True. |
ShowPercentage | Opcional | Variantes | True para habilitar o percentual para o rótulo de dados. False para desabilitar o percentual. |
ShowBubbleSize | Opcional | Variantes | True para habilitar o tamanho da bolha para o rótulo de dados. False para desabilitar o tamanho da bolha. |
Separator | Opcional | Variante | O separador para o rótulo de dados. |
Valor de retorno
Nothing
Exemplo
O exemplo a seguir aplica rótulos de dados a cada ponto de dados.
Sub SetDataLabels()
Dim chartShape As Shape
Dim reportName As String
reportName = "Simple scalar chart"
Set chartShape = ActiveProject.Reports(reportName).Shapes(1)
chartShape.Chart.ApplyDataLabels
End Sub
Confira também
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.
Comentários
https://aka.ms/ContentUserFeedback.
Em breve: Ao longo de 2024, eliminaremos os problemas do GitHub como o mecanismo de comentários para conteúdo e o substituiremos por um novo sistema de comentários. Para obter mais informações, consulteEnviar e exibir comentários de