Classe Chart (PowerPoint VBA)

La classe Chart représente un graphique dans une présentation.

Les procédures principales de la classe Chart sont Copy, Delete et Select

Set

Pour utiliser une variable de classe Chart, elle doit d'abord être instanciée, par exemple

Dim chr as Chart
Set chr = ActiveWindow.RangeFromPoint.Chart

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe Chart : Shape.Chart et ShapeRange.Chart

Thèmes

Certaines procédures de cette classe ont été regroupées en thèmes et sont décrites sur des pages thématiques séparées

Data with its procedures ApplyDataLabels, ChartData, DataTable, HasDataTable et SetSourceData
Format with its procedures ApplyLayout, ChartColor, ChartStyle, ClearToMatchColorStyle, ClearToMatchStyle, Format, HeightPercent et PlotVisibleOnly
Name with its procedures ChartTitle, HasTitle, Name et Title
Copy with its procedures Copy et CopyPicture
Display/Show with its procedures DisplayBlanksAs, ShowAllFieldButtons, ShowDataLabelsOverMaximum et ShowLegendFieldButtons
Axis with its procedures HasAxis et ShowAxisFieldButtons

Méthodes

Les méthodes principales de la classe Chart sont

Delete - Cette méthode supprime l'objet.

ActiveWindow.RangeFromPoint.Chart.Delete

Select - Cette méthode sélectionne l'objet.

ActiveWindow.RangeFromPoint.Chart.Select

Autre Méthodes

Axes - Renvoie la collection des axes du graphique.

Dim axs As Axes
Set axs = ActivePresentation.Slides(1).Shapes(1).Chart.Axes()

ChartWizard - Cette méthode modifie les propriétés d'un graphique déterminé. Vous pouvez utiliser cette méthode pour mettre rapidement en forme un graphique sans définir individuellement toutes ses propriétés. Cette méthode n'est pas interactive et elle modifie uniquement les propriétés spécifiées.

ActivePresentation.Slides(1).Shapes(1).Chart.ChartWizard

Export - Cette méthode exporte le graphique dans un format graphique.

Dim strFileName As String: strFileName = 
Dim booExport As Boolean
booExport = ActivePresentation.Slides(1).Shapes(1).Chart.Export(FileName:=strFileName)

GetChartElement - Renvoie des informations sur l’élément du graphique spécifié aux coordonnées X et Y.

Dim lngX As Long: lngX = 
Dim lngY As Long: lngY = 
Dim lngElementID As Long: lngElementID = 
Dim lngArg1 As Long: lngArg1 = 
Dim lngArg2 As Long: lngArg2 = 
ActiveWindow.RangeFromPoint.Chart.GetChartElement X:=lngX, Y:=lngY, ElementID:=lngElementID, Arg1:=lngArg1, Arg2:=lngArg2

SetProperty -

Dim strId As String: strId = 
ActiveWindow.RangeFromPoint.Chart.SetProperty Id:=strId, Value:=

Propriétés

AlternativeText Renvoie ou définit le texte de remplacement associé à une forme dans une présentation Web. Lecture-écriture.

ActivePresentation.Slides(1).Shapes(1).Chart.AlternativeText = "Bla bla"

AutoScaling La valeur true si Microsoft Word met à l’échelle un graphique en 3D de sorte qu’il soit plus proche en taille du graphique 2D équivalent. La propriété RightAngleAxes doit avoir la valeur True. Boolean (en lecture/écriture).

ActivePresentation.Slides(1).Shapes(1).Chart.AutoScaling = True

BackWall Renvoie un objet qui permet à l'utilisateur de mettre en forme individuellement le mur arrière d'un graphique en 3D. Murs en lecture seule.

Dim wllsBackWall As Walls
Set wllsBackWall = ActiveWindow.RangeFromPoint.Chart.BackWall

BarShape Cette propriété renvoie ou définit la forme utilisée pour toutes les séries d’un graphique en histogrammes ou en barres 3D. En lecture/écriture XlBarShape.

ActivePresentation.Slides(1).Shapes(1).Chart.BarShape = xlBox

CategoryLabelLevel Cette propriété renvoie ou définit une constante XlCategoryLabel qui spécifie le niveau de source des étiquettes de catégorie de graphique. Lecture-écriture.

ActiveWindow.RangeFromPoint.Chart.CategoryLabelLevel = xlCategoryLabelLevelAll

ChartArea Renvoie la zone de graphique complète du graphique. En lecture seule ChartArea.

Dim caaChartArea As ChartArea
Set caaChartArea = ActivePresentation.Slides(1).Shapes(1).Chart.ChartArea

ChartType Cette propriété renvoie ou définit le type de graphique. Type de données XlChartType en lecture-écriture.

ActivePresentation.Slides(1).Shapes(1).Chart.ChartType = xlColumnClustered

DepthPercent Cette propriété renvoie ou définit la profondeur d’un graphique en 3D sous la forme d’un pourcentage de la largeur du graphique (entre 20 et 2000 pour cent). Long en lecture/écriture.

ActivePresentation.Slides(1).Shapes(1).Chart.DepthPercent = 50

Elevation Cette propriété renvoie ou définit l’altitude, en degrés, de l’affichage de graphique 3D. Long en lecture/écriture.

ActivePresentation.Slides(1).Shapes(1).Chart.Elevation = 32

Floor Renvoie le plancher du graphique 3D. Plancher en lecture seule.

Dim flrFloor As Floor
Set flrFloor = ActivePresentation.Slides(1).Shapes(1).Chart.Floor

GapDepth Cette propriété renvoie ou définit la distance, sous la forme d’un pourcentage de la largeur de la marque, entre les séries de données d’un graphique en 3D. Long en lecture/écriture.

ActivePresentation.Slides(1).Shapes(1).Chart.GapDepth = 200

HasLegend Cette propriété a la valeur True si le graphique possède une légende. Boolean (en lecture/écriture).

ActivePresentation.Slides(1).Shapes(1).Chart.HasLegend = True

Legend Renvoie la légende du graphique. Légende en lecture seule.

Dim lgnLegend As Legend
Set lgnLegend = ActivePresentation.Slides(1).Shapes(1).Chart.Legend

Parent Renvoie le parent de l'objet spécifié. Objeten lecture seule.

Dim objParent As Object
Set objParent = ActiveWindow.RangeFromPoint.Chart.Parent

Perspective Cette propriété renvoie ou définit la perspective de l’affichage de graphique 3D. Long en lecture/écriture.

ActivePresentation.Slides(1).Shapes(1).Chart.Perspective = 70

PlotArea Renvoie la zone de traçage d'un graphique. En lecture seule PlotArea.

Dim paaPlotArea As PlotArea
Set paaPlotArea = ActivePresentation.Slides(1).Shapes(1).Chart.PlotArea

PlotBy Renvoie ou spécifie la façon dont les colonnes ou les lignes sont utilisées comme séries de données sur le graphique. Long en lecture/écriture.

ActivePresentation.Slides(1).Shapes(1).Chart.PlotBy = xlColumns

RightAngleAxes Cette propriété a la valeur True si les axes du graphique se coupent à angle droit, quelle que soit la rotation ou l’élévation du graphique. Boolean (en lecture/écriture).

ActivePresentation.Slides(1).Shapes(1).Chart.RightAngleAxes = True

Rotation Cette propriété renvoie ou définit la rotation, en degrés, de l’affichage graphique 3D (la rotation de la zone de traçage autour de l’axe z). Variant (en lecture/écriture).

ActivePresentation.Slides(1).Shapes(1).Chart.Rotation = 45

SeriesNameLevel Cette propriété renvoie ou définit une constante XlSeriesNameLevel qui spécifie le niveau de source des noms de série. Lecture-écriture.

ActiveWindow.RangeFromPoint.Chart.SeriesNameLevel = xlSeriesNameLevelAll

Shapes Renvoie une collection qui représente toutes les formes de la feuille de graphique. En lecture seule formes.

Dim shpsShapes As Shapes
Set shpsShapes = ActiveWindow.RangeFromPoint.Chart.Shapes

ShowReportFilterFieldButtons Renvoie ou définit une valeur qui indique si les boutons de champ de filtre de rapport doivent être affichés dans un graphique croisé dynamique. Lecture-écriture.

ActiveWindow.RangeFromPoint.Chart.ShowReportFilterFieldButtons = True

ShowValueFieldButtons Renvoie ou définit une valeur qui indique si les boutons de champ de valeur doivent être affichés dans un graphique croisé dynamique. Lecture-écriture.

ActiveWindow.RangeFromPoint.Chart.ShowValueFieldButtons = True

SideWall Renvoie un objet Walls qui permet à l’utilisateur de mettre en forme individuellement le mur latéral d’un graphique en 3D. En lecture seule.

Dim wllsSideWall As Walls
Set wllsSideWall = ActiveWindow.RangeFromPoint.Chart.SideWall

Walls Renvoie les murs du graphique en 3D. Murs en lecture seule.

Dim wllsWalls As Walls
Set wllsWalls = ActivePresentation.Slides(1).Shapes(1).Chart.Walls