Метод Chart.ApplyCustomType (Project)

Применяет пользовательский тип диаграммы к диаграмме.

Синтаксис

выражение. ApplyCustomType (ChartType,TypeName)

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

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
ChartType	Обязательный	Office.XlChartType	Тип диаграммы.
TypeName	Необязательный	Variant	Имя типа диаграммы.
ChartType	Обязательный	XLCHARTTYPE
TypeName	Необязательный	Variant

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

Nothing

Пример

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

Sub SetChartType()
    Dim chartShape As Shape
    Dim reportName As String
    
    reportName = "Simple scalar chart"
    Set chartShape = ActiveProject.Reports(reportName).Shapes(1)
    
    Debug.Print "Chart type before: " & chartShape.Chart.ChartType
    chartShape.Chart.ApplyCustomType (xl3DBarClustered)
    Debug.Print "Chart type after: " & chartShape.Chart.ChartType
End Sub

См. также

Объект Chart

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

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