Método ShapeRange.Duplicate (Project)

Duplica um intervalo de formas e retorna 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 forma duplicada são ambos 12 pontos do intervalo de forma original.

Exemplo

O exemplo a seguir usa 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

Método ShapeRange ObjectShape.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.