Метод Chart.ApplyLayout (Project)
Применяет указанный макет и тип диаграммы к выбранной диаграмме.
Синтаксис
выражение. ApplyLayout
(Layout,varChartType)
выражение: переменная, представляющая объект Chart.
Параметры
Имя | Обязательный или необязательный | Тип данных | Описание |
---|---|---|---|
Layout | Обязательный | Long | Указывает тип макета, где значение соответствует элементу быстрого макета на ленте. |
varChartType | Необязательный | Variant | Может быть одной из констант Office.XlChartType . |
Layout | Обязательный | INT32 | |
varChartType | Необязательный | Variant |
Возвращаемое значение
Nothing
Замечания
При выборе диаграммы в отчете раскрывающийся список Быстрый макет находится на вкладке КОНСТРУКТОР в разделе Инструменты диаграммы на ленте. Тип диаграммы можно изменить вручную с помощью команды Изменить тип диаграммы на той же вкладке ленты.
При использовании макета для текущего типа диаграммы параметр Layout ограничен количеством элементов в раскрывающемся списке Быстрый макет . Используйте параметр varChartType , чтобы применить макет диаграммы другого типа к текущей диаграмме. Например, можно применить макеты, доступные на графике, к гистограмме. Метод ApplyLayout добавляет только элементы графики, которые также доступны для типа гистограммы.
Пример
В следующем примере элемент быстрого макета номер 12 из графика применяется к выбранной диаграмме.
Sub SetChartLayout()
Dim chartShape As Shape
Dim reportName As String
reportName = "Simple scalar chart"
Set chartShape = ActiveProject.Reports(reportName).Shapes(1)
chartShape.Chart.ApplyLayout Layout:=12, varChartType:=Office.XlChartType.xlLine
End Sub
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.
Обратная связь
https://aka.ms/ContentUserFeedback.
Ожидается в ближайшее время: в течение 2024 года мы постепенно откажемся от GitHub Issues как механизма обратной связи для контента и заменим его новой системой обратной связи. Дополнительные сведения см. в разделеОтправить и просмотреть отзыв по