Método Shape.Duplicate (Project)

Artigo
04/07/2023

Duplica uma forma e retorna uma referência à cópia.

Sintaxe

expressão. Duplicar

Expressão Uma variável que representa um objeto Shape .

Valor de retorno

Formato

Exemplo

O exemplo a seguir usa o relatório criado pelo exemplo de código no método Shape.Apply . O exemplo duplica uma forma e, em seguida, gira, gira horizontalmente e seleciona a nova forma. O deslocamento horizontal e o deslocamento vertical da nova forma são ambos 12 pontos.

Sub DuplicateShape()
    Dim theReport As Report
    Dim shp1 As shape
    Dim duplicatedShape As shape
    Dim reportName As String
    
    reportName = "Apply Report"
    
    Set theReport = ActiveProject.Reports(reportName)
    Set shp1 = theReport.Shapes(1)
    
    Set duplicatedShape = shp1.Duplicate
    
    pos1 = shp1.left
    pos2 = duplicatedShape.left
    Debug.Print "Horizontal offset: " & CStr(pos2 - pos1)
    
    pos1 = shp1.top
    pos2 = duplicatedShape.top
    Debug.Print "Vertical offset: " & CStr(pos2 - pos1)
   
    duplicatedShape.Rotation = 30
    duplicatedShape.Flip msoFlipHorizontal
    
    duplicatedShape.Select
End Sub

Confira também

Método ShapeRange.Duplicate do Objeto ShapeRange

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.

Compartilhar via