Método Shape.Copy (Visio)
Copia una forma en el Portapapeles.
Sintaxis
expresión. Copiar (marcas)
expresión Variable que representa un objeto Shape.
Parameters
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| Flags | Opcional | Variant | Determina cómo se traducen las formas durante la operación de copia. |
Valor devuelto
Nothing
Comentarios
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.
Para realizar una copia sin utilizar el Portapapeles, utilice el método Duplicate.
Ejemplo
En el ejemplo siguiente se muestra cómo usar el método Copy . Dibuja un rectángulo y, a continuación, lo copia en el Portapapeles.
Public Sub Copy_Example()
Dim vsoShape As Visio.Shape
Set vsoShape = ActivePage.DrawRectangle(1, 5, 5, 1)
'Copy the shape to the Clipboard.
vsoShape.Copy
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.