Свойство 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

См. также

Объект Chart

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.