Propriedade ChartData.Workbook (PowerPoint)
Retorna a pasta de trabalho que contém os dados do gráfico associados ao gráfico. Somente leitura objeto.
Sintaxe
expressão. Workbook
Expressão Uma variável que representa um objeto 'ChartData'.
Comentários
Observação
[!OBSERVAçãO] É necessário chamar o método Activate para poder fazer referência a essa propriedade; caso contrário, ocorrerá um erro.
Exemplo
Observação
[!OBSERVAçãO] Embora o código a seguir se aplique ao Microsoft Word, você poderá modificá-lo para se aplicar ao PowerPoint.
O exemplo a seguir ativa a planilha do Microsoft Excel associada ao primeiro gráfico do documento ativo. Se a pasta de trabalho do Excel tiver várias janelas, o exemplo ativará a primeira janela. Em seguida, o exemplo copiará o conteúdo das células de B1 até B5 e colará o conteúdo das células no gráfico.
Observação
[!OBSERVAçãO] O Excel deve estar aberto para modificar os dados da planilha.
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
Confira também
Suporte e comentários
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.