Método ShapeRange.Duplicate (Project)

Duplica un intervalo de formas y devuelve una referencia a la copia.

Sintaxis

expresión. Duplicado

expresión Variable que representa un objeto 'ShapeRange'.

Valor devuelto

ShapeRange

Observaciones

El desplazamiento horizontal y el desplazamiento vertical del intervalo de formas duplicadas son ambos 12 puntos del intervalo de formas original.

Ejemplo

En el ejemplo siguiente se usa el informe creado por el ejemplo de código en el método ShapeRange.Apply . En el ejemplo se duplica un intervalo de formas que contiene dos formas y, a continuación, se voltea verticalmente y selecciona el nuevo intervalo de formas.

Sub DuplicateShapeRange()
    Dim theReport As Report
    Dim shp1 As shape
    Dim shp2 As shape
    Dim shp3 As shape
    Dim reportName As String
    Dim sRange1 As ShapeRange
    Dim sRange2 As ShapeRange
    
    reportName = "Apply Report"
    
    Set theReport = ActiveProject.Reports(reportName)
    Set shp1 = theReport.Shapes(1)
    Set shp2 = theReport.Shapes(2)
    Set shp3 = theReport.Shapes(3)
    
    Set sRange1 = theReport.Shapes.Range(Array(2, 3))
    
    Set sRange2 = sRange1.Duplicate()
    
    sRange2.Flip msoFlipVertical
    sRange2.Select
End Sub

Vea también

Método ShapeRange (objetoShape.Duplicate)

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.