Classe ChartData - données (PowerPoint VBA)

La classe ChartData représente l'accès aux données liées ou incorporées associées à un graphique.

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

Dim cda as ChartData
Set cda = ActiveWindow.RangeFromPoint.Chart.ChartData

Les variables du type ChartData peuvent être définies à l'aide de la procédure Chart.ChartData

Activate

Cette méthode active la première fenêtre du classeur associée au graphique.

Si le graphique est lié à un classeur Microsoft Excel, cette méthode n’exécute pas les macros Auto_Activate ou Auto_Deactivate qui peuvent être attachées au classeur (utilisez la méthode RunAutoMacros pour exécuter ces macros).

ActivePresentation.Slides(1).Shapes(1).Chart.ChartData.Activate

ActivateChartDataWindow

Ouvre une fenêtre de grille de données Excel qui contient les données sources complètes pour le graphique spécifié.

Si la fenêtre grille de données est déjà ouverte, cette méthode n’a aucun effet. La méthode ActivateChartDataWindow diffère de la méthode ChartData. Activate dans le sens où le premier ouvre le graphique dans une fenêtre Excel dans Word, le ruban Excel n’étant pas disponible, tandis que le dernier ouvre une version complète d’Excel, avec le ruban disponible.

ActiveWindow.RangeFromPoint.Chart.ChartData.ActivateChartDataWindow

Supprime le lien entre les données d'un graphique et un classeur Microsoft Excel.

L’appel de cette méthode définit la propriété IsLinked de l’objet ChartData sur false.

ActivePresentation.Slides(1).Shapes(1).Chart.ChartData.BreakLink

IsLinked

True si les données du graphique sont liées à un classeur Microsoft Excel externe. Boolean (en lecture seule).

L’utilisation de la méthode BreakLink pour supprimer le lien vers un classeur Excel définit cette propriété sur false.

Dim booIsLinked As Boolean
booIsLinked = ActivePresentation.Slides(1).Shapes(1).Chart.ChartData.IsLinked

Workbook

Renvoie le classeur qui contient les données associées au graphique. En lecture seule Object.

Dim wbWorkbook As Workbook
wbWorkbook = ActivePresentation.Slides(1).Shapes(1).Chart.ChartData.Workbook