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

Activate

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

Se o gráfico estiver ligado a uma planilha do Microsoft Excel, este método não executará nenhuma macro Ativar_auto ou Desativar_auto que possam estar anexadas à planilha (use o método RunAutoMacros para executar essas 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 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.



Public Sub ActivateChartDataWindow_Example()

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

End Sub

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.


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

IsLinked

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

Usando o método BreakLink para remover o link para uma pasta de trabalho do Excel define essa propriedade como 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

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


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