Método Shape.Duplicate (Project)

Duplica una forma y devuelve una referencia a la copia.

Sintaxis

expresión. Duplicado

expresión Variable que representa un objeto Shape.

Valor devuelto

Shape

Ejemplo

En el ejemplo siguiente se usa el informe creado por el ejemplo de código en el método Shape.Apply . En el ejemplo se duplica una forma y, a continuación, se gira, se voltea horizontalmente y se selecciona la nueva forma. El desplazamiento horizontal y el desplazamiento vertical de la nueva forma son ambos 12 puntos.

Sub DuplicateShape()
    Dim theReport As Report
    Dim shp1 As shape
    Dim duplicatedShape As shape
    Dim reportName As String
    
    reportName = "Apply Report"
    
    Set theReport = ActiveProject.Reports(reportName)
    Set shp1 = theReport.Shapes(1)
    
    Set duplicatedShape = shp1.Duplicate
    
    pos1 = shp1.left
    pos2 = duplicatedShape.left
    Debug.Print "Horizontal offset: " & CStr(pos2 - pos1)
    
    pos1 = shp1.top
    pos2 = duplicatedShape.top
    Debug.Print "Vertical offset: " & CStr(pos2 - pos1)
   
    duplicatedShape.Rotation = 30
    duplicatedShape.Flip msoFlipHorizontal
    
    duplicatedShape.Select
End Sub

Vea también

Método ShapeRange.Duplicatedel objeto Shape

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.