Método Shapes.Paste (PowerPoint)
Pega las formas, diapositivas o texto del Portapapeles en la colección Shapes especificada, en la parte superior del orden Z. Cada objeto pegado se convierte en un miembro de la colección Shapes especificada. Si el Portapapeles contiene diapositivas completas, las diapositivas se pegarán como formas que contienen las imágenes de las diapositivas. Si el Portapapeles contiene un intervalo de texto, el texto se pegará en una forma TextFrame recién creada. Devuelve un objeto ShapeRange que representa los objetos pegados.
Sintaxis
expresión. Pegar
expresión Variable que representa un objeto Shapes.
Valor devuelto
ShapeRange
Comentarios
Utilice la propiedad ViewType para establecer la vista de una ventana antes de pegar el contenido del Portapapeles. En la tabla siguiente se muestran los elementos que pueden pegarse en cada vista.
| En la vista | Puede pegar desde el Portapapeles |
|---|---|
| Vista Diapositiva o vista Página de notas | Formas, texto o diapositivas completas. Si pega una diapositiva del Portapapeles, se insertará una imagen de la diapositiva en la página de diapositivas, maestros o notas como un objeto incrustado. Si se selecciona una forma, el texto pegado se anexará al texto de la forma; Si se selecciona texto, el texto pegado reemplazará a la selección; si se selecciona algo más, el texto pegado se colocará en él es un marco de texto propio. Las formas pegadas se agregarán a la parte superior del orden Z y no reemplazarán las formas seleccionadas. |
| Vista Esquema | Texto o diapositivas completas. No se pueden pegar formas en la vista Esquema. La diapositiva pegada se insertará delante de la diapositiva que tiene el cursor. |
| Vista Clasificador de diapositivas | Diapositivas completas. No se puede pegar formas ni texto en la vista Clasificador de diapositivas. La diapositiva pegada se insertará donde se encuentre el cursor o a continuación de la última diapositiva seleccionada en la presentación. |
Si el contenido de origen no está totalmente descargado, se produce un error en este método y se produce un error. Para obtener más información sobre los documentos parciales, vea Trabajar con documentos parciales.
Ejemplo:
En este ejemplo se copia la primera forma de la diapositiva número uno de la presentación activa en el Portapapeles y, a continuación, se pega en la diapositiva número dos.
With ActivePresentation
.Slides(1).Shapes(1).Copy
.Slides(2).Shapes.Paste
End With
En este ejemplo se corta el texto de la primera forma de la diapositiva número uno de la presentación activa, se copia en el Portapapeles y se pega después de la primera palabra de la segunda forma en la misma diapositiva.
With ActivePresentation.Slides(1)
.Shapes(1).TextFrame.TextRange.Cut
.Shapes(2).TextFrame.TextRange.Words(1).InsertAfter.Paste
End With
Consulte también
Trabajar con documentos parciales
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.