Свойство Chart.Legend (Project)
Возвращает объект Office.IMsoLegend , представляющий легенду для диаграммы. IMsoLegend, доступный только для чтения.
Синтаксис
expression. Легенда
выражение: переменная, представляющая объект Chart.
Пример
В следующем примере включается легенда для диаграммы, а затем задается верхняя часть легенды на 20 пунктов ниже, чем было задано ранее.
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
Значение свойства
IMSOLEGEND
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.
Обратная связь
https://aka.ms/ContentUserFeedback.
Ожидается в ближайшее время: в течение 2024 года мы постепенно откажемся от GitHub Issues как механизма обратной связи для контента и заменим его новой системой обратной связи. Дополнительные сведения см. в разделеОтправить и просмотреть отзыв по