Метод PivotCache.CreatePivotChart (Excel)

Статья
04/07/2023

Создает автономную сводную диаграмму из объекта PivotCache . Возвращает объект Shape .

Синтаксис

expression. CreatePivotChart (ChartDestination, XlChartType, Left, Top, Width, Height)

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

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
ChartDestination	Обязательный	Variant	Целевой лист.
XlChartType	Необязательный	Variant	Тип диаграммы.
Left	Необязательный	Variant	Расстояние (в точках) от левого края объекта до левого края столбца A (на листе) или левого края области диаграммы (на диаграмме).
Top	Необязательный	Variant	Расстояние (в точках) от верхнего края верхней фигуры в диапазоне фигур до верхнего края листа.
Width	Необязательный	Variant	Ширина объекта в точках.
Height	Необязательный	Variant	Высота объекта в точках.

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

Объект Shape

Замечания

Если объект PivotCache , из которого вызывается метод, не имеет присоединенной сводной таблицы:

Сводная таблица уровня книги создается из существующей сводной таблицы.
Создается автономная сводная диаграмма со ссылкой на только что созданную сводную таблицу.

Если сводная таблица уже имеет связанную сводную таблицу:

Сводная таблица клонирована.
На основе клонированного сводного файла создается сводная таблица на уровне книги.
Создается автономная сводная диаграмма со ссылкой на новую сводную таблицу на уровне книги.

Пример

Следующий код создает разделенную сводную диаграмму из объекта PivotCache.

Workbooks("Book1").Connections.Add _
     "cubes4 Adventure Works DW 2008 Special Char Adventure Works", "", Array( _
     "OLEDB;Provider=MSOLAP.4;Integrated Security=SSPI;Persist Security Info=True;Data Source=<server name here >;Initial Catalog=Adventure Works DW 2008" _
     , " Special Char"), Array("Adventure Works"), 1
   ActiveWorkbook.PivotCaches.Create(SourceType:=xlExternal, SourceData:= _
     ActiveWorkbook.Connections( _
     "cubes4 Adventure Works DW 2008 Special Char Adventure Works"), Version:= _
     xlPivotTableVersion14).CreatePivotChart(ChartDestination:="Sheet1").Select

   ActiveChart.ChartType = xlColumnClustered

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

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

Поделиться через