Propriedade Chart.Legend (Project)
Obtém um objeto Office.IMsoLegend que representa a legenda de um gráfico. IMsoLegend somente leitura.
Sintaxe
expressão. Lenda
expressão Uma variável que representa um objeto Chart.
Exemplo
O exemplo a seguir ativa a legenda do gráfico e define a parte superior da legenda 20 pontos menor do que foi definida anteriormente.
Sub SetLegendTop()
Dim chartShape As Shape
Dim reportName As String
Dim legendTop As Double
reportName = "Simple scalar chart"
Set chartShape = ActiveProject.Reports(reportName).Shapes(1)
chartShape.Chart.HasLegend = True
legendTop = chartShape.Chart.Legend.Top
chartShape.Chart.Legend.Top = legendTop + 20
End Sub
Valor de propriedade
IMSOLEGEND
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.