Méthode PivotCache.CreatePivotChart (Excel)

Article
04/07/2023

Crée un graphique croisé dynamique autonome à partir d’un objet PivotCache . Renvoie un objet Shape .

Syntaxe

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

Expression Variable qui représente un objet PivotCache .

Parameters

Nom	Requis/Facultatif	Type de données	Description
ChartDestination	Requis	Variant	Feuille de calcul Destination.
XlChartType	Facultatif	Variant	Type du graphique
Left	Facultatif	Variant	Distance, en points, entre le bord gauche de l’objet et le bord gauche de la colonne A (dans une feuille de calcul) ou le bord gauche de la zone de graphique (sur un graphique).
Top	Facultatif	Variant	Distance, en points, entre le bord supérieur de la forme la plus haute dans la plage de formes et le bord supérieur de la feuille de calcul.
Width	Facultatif	Variant	Largeur de l’objet en points.
Height	Facultatif	Variant	Hauteur de l'objet en points.

Valeur renvoyée

Objet Shape

Remarques

Si l’objet PivotCache à partir duquel la méthode est appelée n’a pas de tableau croisé dynamique attaché :

Un tableau croisé dynamique au niveau du classeur est créé à partir du pivotCache existant.
Un graphique croisé dynamique autonome est créé avec une référence au tableau croisé dynamique nouvellement créé.

Si le pivotCache a déjà un tableau croisé dynamique associé :

Le pivotCache est cloné.
Un nouveau tableau croisé dynamique au niveau du classeur est créé en fonction du pivotcache cloné.
Un graphique croisé dynamique autonome est créé avec une référence au nouveau tableau croisé dynamique au niveau du classeur.

Exemple

Le code suivant crée un graphique croisé dynamique découplé d’un objet 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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.

Share via