Share via


Método Chart.Paste (PowerPoint)

Cola dados de gráfico da Área de Transferência para o gráfico.

Sintaxe

expressão. Colar (Tipo)

expressão Uma variável que representa um objeto Chart.

Parâmetros

Nome Obrigatório/Opcional Tipo de dados Descrição
Type Opcional Variant Especifica as informações de gráfico a serem coladas se um gráfico estiver na Área de Transferência. Pode ser um destes valores:
:----- :-----
-4104 Tudo será colado. Este é o valor padrão.
-4122 Os formatos de origem copiados são colados.
-4123 As fórmulas são coladas.

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.

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

Objeto Chart

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.