Метод Chart.SetElement (Project)

Добавляет указанный элемент в диаграмму или в выбранный объект на диаграмме.

Синтаксис

выражение. SetElement (RHS)

выражение: переменная, представляющая объект Chart.

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
RHS	Обязательный	MsoChartElementType	Одна из констант перечисления для добавляемого типа элемента диаграммы.

Возвращаемое значение

Nothing

Замечания

Значение RHS для метода SetElement соответствует элементам в подменю Добавление элемента диаграммы . Различные элементы включены в зависимости от типа диаграммы. При попытке добавить элемент, который не существует для конкретной диаграммы, вы получите неуказаную ошибку. Например, на трехмерной диаграмме элемент Панели ошибок в раскрывающемся списке Добавление элемента диаграммы недоступен. Вызов приводит к Chart.SetElement msoElementErrorBarStandardDeviation ошибке.

Пример

В следующем примере к оси значений добавляются небольшие линии сетки, а выноски меток данных — во второй ряд данных.

Sub TestSetElements()
    Dim chartShape As Shape
    Dim reportName As String
    
    reportName = "Simple 3D chart"
    Set chartShape = ActiveProject.Reports(reportName).Shapes(1)
    
    With chartShape.Chart
        .SetElement msoElementChartTitleAboveChart
        
        ' Select the major gridlines on the value axis, and then add minor gridlines.
        .axes(Office.xlValue).MajorGridlines.Select
        .SetElement msoElementPrimaryCategoryGridLinesMinor
        
        ' Select the second data series and add data label callouts.
        If .SeriesCollection.Count > 1 Then
            .SeriesCollection(2).Select
            .SetElement msoElementDataLabelCallout
        End If
    End With
End Sub

См. также

Объект Chart

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

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