Classe ChartData - données (Word 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 = ActiveDocument.Background.Chart.ChartData

Activate

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

Si le graphique est relié à un classeur Microsoft Excel, cette méthode n'exécute pas les macros Auto_Activate ou Auto_Deactivate éventuellement attachées au classeur. Pour exécuter ces macros, utilisez la méthode RunAutoMacros.


With ActiveDocument.InlineShapes(1) 
 If .HasChart Then 
 .Chart.ChartData.Activate 
 .Chart.ChartData.Workbook. _ 
 Worksheets("Sheet1").Range("B1:B5").Copy 
 .Chart.Paste 
 End If 
End With

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.



Public Sub ActivateChartDataWindow_Example()

    ThisDocument.Shapes(1).Chart.ChartData.ActivateChartDataWindow

End Sub

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 False.


With ActiveDocument.InlineShapes(1) 
 If .HasChart Then 
 .Chart.ChartData.Activate 
 .Chart.ChartData.BreakLink 
 End If 
End With

IsLinked

True si les données du graphique sont liées à un classeur Microsoft Excel externe.

À l'aide de la méthode BreakLink pour supprimer le lien vers un classeur Excel définit cette propriété sur False.


With ActiveDocument.InlineShapes(1) 
 If .HasChart Then 
 With .Chart.ChartData 
 If .IsLinked Then 
 .BreakLink 
 Else 
 .Activate 
 End If 
 End With 
 End If 
End With

Workbook

Renvoie le classeur qui contient les données associées au graphique. 


With ActiveDocument.InlineShapes(1) 
 If .HasChart Then 
 .Chart.ChartData.Activate 
 .Chart.ChartData.Workbook. _ 
 Worksheets("Sheet1").Range("B1:B5").Copy 
 .Chart.Paste 
 End If 
End With