Método ShapeRange.Duplicate (proyecto)

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

Sintaxis

más sencilla.Duplicar

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

Valor devuelto

ShapeRange

Comentarios

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

Ejemplo

En el ejemplo siguiente se utiliza 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, después, se voltea verticalmente y se 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

Objeto ShapeRangeMétodo Shape.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.