Метод Shape.Duplicate (проект)

Дублирует фигуру и возвращает ссылку на копию.

Синтаксис

выражение. Дублировать

выражение Переменная, представляющая объект Фигура.

Возвращаемое значение

Shape

Пример

В следующем примере используется отчет, созданный с помощью примера кода методом Shape.Apply . В этом примере фигура дублируется, а затем она поворачивается, отражается по горизонтали и выделяется новая фигура. Смещение по горизонтали и по вертикали новой фигуры равно 12 точкам.

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

См. также

Метод объекта фигурыShapeRange.Duplicate

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.