Método Chart.Paste (PowerPoint)

Pega los datos de gráfico que contiene el Portapapeles en el gráfico.

Sintaxis

expresión. Pegar (tipo)

expresión Una variable que representa un objeto Chart.

Parameters

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
Type	Opcional	Variant	Especifica la información del gráfico para pegar si hay un gráfico en el Portapapeles. Puede ser uno de los valores siguientes:
:-----	:-----
-4104	Se pegará todo. Éste es el valor predeterminado.
-4122	Se pegan los formatos de origen copiados.
-4123	Se pegan las fórmulas.

Ejemplo:

Nota:

[!NOTA] Si bien el siguiente código se aplica a Microsoft Word, puede modificarlo para que se aplique a PowerPoint.

En el siguiente ejemplo, se activa el libro de Microsoft Excel asociado al primer gráfico del documento activo. Si el libro de Excel tiene varias ventanas, el ejemplo activa la primera ventana. A continuación, el ejemplo copia el contenido en las celdas desde la B1 hasta la B5 y pega el contenido de las celdas en el 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

Consulte también

Objeto Chart

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.