Método ShapeRange.Duplicate (Projeto)

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

Sintaxe

mais simples. Detecção de

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 duplicadas estão a 12 pontos do intervalo de formas 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.