Clase ChartData - datos (Word VBA)

La clase ChartData representa el acceso a los datos vinculados o insertados asociados a un gráfico. Para usar una variable de clase ChartData, primero debe ser instanciado, por ejemplo 


Dim cda as ChartData
Set cda = ActiveDocument.Background.Chart.ChartData

Activate

Activa la primera ventana del libro asociado al gráfico.

Si el gráfico está vinculado a un libro de Microsoft Excel, este método no ejecuta ninguna macro Auto_activar o Auto_desactivar que pueda estar asociada al libro (use el método RunAutoMacros para ejecutar dichas macros).


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

Abre una ventana de cuadrícula de datos de Excel que contiene los datos de origen completos del gráfico especificado.

Si la ventana de la cuadrícula de datos ya está abierta, este método no tiene ningún efecto. El método ActivateChartDataWindow difiere del método ChartData. Activate en que el primero abre el gráfico en una ventana de Excel en Word, con la cinta de Excel no disponible, mientras que el último abre una versión completa de Excel, con la cinta de opción disponible.



Public Sub ActivateChartDataWindow_Example()

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

End Sub

Quita el vínculo entre los datos de un gráfico y el libro de Microsoft Excel.

Llamar a este método, establece la propiedad IsLinked del objeto ChartData en False.


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

IsLinked

True si los datos para el gráfico está vinculados a un libro de Microsoft Excel externo.

Uso del método BreakLink para quitar el vínculo a un libro de Excel, establece esta propiedad en 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

Devuelve el libro que contiene los datos del gráfico asociados con el gráfico. 


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