Classe ChartData - dados (PowerPoint VBA)

A classe ChartData representa o acesso aos dados vinculados ou internos associados ao gráfico.

Para usar uma variável de classe ChartData, ela primeiro precisa ser instanciada por exemplo

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

As variáveis ​​de classe ChartData podem ser definidas usando o procedimento Chart.ChartData.

Activate

Ativa a primeira janela da pasta de trabalho associada ao gráfico.

Se o gráfico estiver vinculado a uma pasta de trabalho do Microsoft Excel, este método não executará nenhuma macro Auto_Activate ou Auto_Deactivate que possa estar anexada à pasta de trabalho (use o método RunAutoMacros para executar essas macros).

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

ActivateChartDataWindow

Abre uma janela de grade de dados do Excel que contém os dados de origem completos do gráfico especificado.

Se a janela da grade de dados já estiver aberta, este método não terá efeito. O método ActivateChartDataWindow difere do método ChartData. Activate , pois o primeiro abre o gráfico em uma janela do Excel no Word, com a faixa de opções do Excel indisponível, enquanto o último abre uma versão completa do Excel, com a faixa de opções disponível.

ActiveWindow.RangeFromPoint.Chart.ChartData.ActivateChartDataWindow

Remove o link entre os dados de um gráfico e uma pasta de trabalho do Microsoft Excel.

Chamar esse método define a Propriedade IsLinked do objeto ChartData como false.

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

IsLinked

True se os dados do gráfico estiver vinculados a uma pasta de trabalho do Microsoft Excel externa. Boolean somente leitura.

O uso do método BreakLink para remover o link para uma pasta de trabalho do Excel define essa propriedade como false.

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

Workbook

Retorna a pasta de trabalho que contém os dados do gráfico associados ao gráfico. Somente leitura objeto.

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