ShapeRange.Duplicate method (Project) (Método ShapeRange.Duplicate [Project])

Duplica um intervalo de formas e devolve uma referência à cópia.

Sintaxe

expressão. Duplicar

expressão Uma variável que representa um objeto "ShapeRange".

Valor de retorno

ShapeRange

Comentários

O deslocamento horizontal e o deslocamento vertical do intervalo de formas duplicados estão ambos a 12 pontos do intervalo de formas original.

Exemplo

O exemplo seguinte utiliza o relatório criado pelo exemplo de código no método ShapeRange.Apply . O exemplo duplica um intervalo de formas que contém duas formas e, em seguida, inverte verticalmente e seleciona o novo 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

Confira também

ShapeRange ObjectShape.Duplicate Method (Método ShapeRange Object Shape.Duplicate)

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.