Метод PivotCache.CreatePivotChart (Excel)

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

Синтаксис

выражение. CreatePivotChart (ChartDestination, XlChartType, слева, вверху, ширина, высота)

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

Параметры

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

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

Shape object

Примечания

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

• Сводная таблица уровня книги создается на основе существующего сводного кэша.

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

Если со сводным кэшем уже связана сводная таблица, выполните следующие действия.

• Файл 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 и обратная связь.