Clase ChartData (PowerPoint VBA)

La clase ChartData representa el acceso a los datos vinculados o insertados asociados a un gráfico.

Set

Para usar una variable de clase ChartData, primero debe ser instanciado, por ejemplo

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

Las variables de tipo ChartData se pueden establecer utilizando el procedimiento 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 esté adjunta al libro (use el método RunAutoMacros para ejecutar macros de este).

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

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.

ActiveWindow.RangeFromPoint.Chart.ChartData.ActivateChartDataWindow

BreakLink

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

Al llamar a este método, se establece la propiedad IsLinked del objeto ChartData en false.

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

IsLinked

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

Si se usa el método BreakLink para quitar el vínculo a un libro de Excel, esta propiedad se establece en false.

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

Workbook

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

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