PivotCache.CreatePivotChart-Methode (Excel)

Artikel
04/07/2023

Erstellt ein eigenständiges PivotChart aus einem PivotCache-Objekt . Gibt ein Shape-Objekt zurück.

Syntax

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

Ausdruck Eine Variable, die ein PivotCache-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
ChartDestination	Erforderlich	Variant	Das Arbeitsblatt Ziel.
XlChartType	Optional	Variant	Der Typ des Diagramms.
Left	Optional	Variant	Der Abstand in Punkt vom linken Rand des Objekts zum linken Rand von Spalte A (auf einem Arbeitsblatt) oder vom linken Rand des Diagrammbereichs (in einem Diagramm).
Top	Optional	Variant	Der Abstand (in Punkten) des oberen Rands der obersten Form im Formbereich zum oberen Rand des Arbeitsblatts.
Width	Optional	Variant	Die Breite des Objekts in Punkten.
Height	Optional	Variant	Die Höhe des Objekts in Punkten.

Rückgabewert

Shape -Objekt

HinwBemerkungeneise

Wenn das PivotCache-Objekt , aus dem die Methode aufgerufen wird, über keine angefügte PivotTable verfügt:

Eine PivotTable auf Arbeitsmappenebene wird aus dem vorhandenen PivotCache erstellt.
Ein eigenständiges PivotChart wird mit einem Verweis auf die neu erstellte PivotTable erstellt.

Wenn der PivotCache bereits über eine zugeordnete PivotTable verfügt:

Der PivotCache wird geklont.
Eine neue PivotTable auf Arbeitsmappenebene wird basierend auf dem geklonten PivotCache erstellt.
Ein eigenständiges PivotChart wird mit einem Verweis auf die neue PivotTable auf Arbeitsmappenebene erstellt.

Beispiel

Der folgende Code erstellt ein entkoppeltes PivotChart von einem PivotCache-Objekt.

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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.

Share via