Método Page.Paste (Visio)
Pega el contenido del Portapapeles en un objeto.
Sintaxis
expresión. Pegar (marcas)
Expresión Variable que representa un objeto Page .
Parameters
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| Flags | Opcional | Variant | Determina cómo se traducen las formas durante la operación de pegado. |
Valor devuelto
Nothing
Comentarios
El método Paste sólo funciona con objetos Shape que son formas de grupo. Utilice la propiedad Type de una forma para determinar si es un grupo.
Los posibles valores para Flags se declaran en la biblioteca de tipos de Visio en VisCutCopyPasteCodes, y se describen en la tabla siguiente.
| Flag | Valor | Descripción |
|---|---|---|
| visCopyPasteNormal | &H0 | Seguir el comportamiento de copia predeterminado. |
| visCopyPasteNoTranslate | &H1 | Copiar formas en sus ubicaciones de coordenadas originales. |
| visCopyPasteCenter | &H2 | Copiar formas en el centro de la página. |
| visCopyPasteNoHealConnectors | &H4 | No limpiar conectores adjuntos a formas de corte. |
| visCopyPasteNoContainerMembers | &H8 | No cortar ni copiar miembros no seleccionados de contenedores o listas. |
| visCopyPasteNoAssociatedCallouts | &H16 | No cortar ni copiar llamadas no seleccionadas asociadas a formas. |
| visCopyPasteDontAddToContainers | &H32 | No agregar formas pegadas a ningún contenedor subyacente. |
| visCopyPasteNoCascade | &H64 | No desplazar formas en una copia. |
Establecer Flags en visCopyPasteNormal es el equivalente del comportamiento en la interfaz de usuario. Debe usar visCopyPasteNormal y las otras marcas de forma coherente. Por ejemplo, si usa el valor visCopyPasteNoTranslate para copiar, también debería emplear dicho valor para pegar, ya que es la única manera de garantizar que las formas se peguen en sus ubicaciones de coordenadas originales.
Si necesita controlar el formato de la información pegada y (opcionalmente) establecer un vínculo con un archivo de origen (por ejemplo, un documento de Microsoft Word), use el método PasteSpecial.
Ejemplo
Esta macro de Microsoft Visual Basic para Aplicaciones (VBA) muestra cómo utilizar el método Paste. Dibuja un rectángulo, lo copia y, a continuación, pega la copia en la página de dibujo.
Public Sub Paste_Example()
Dim vsoShape As Visio.Shape
'Draw a rectangle.
Set vsoShape = ActivePage.DrawRectangle(1, 5, 5, 1)
'Copy the shape to the Clipboard.
vsoShape.Copy
'Paste the copy onto the drawing page.
ActivePage.Paste
End Sub
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.