Поделиться через


Метод Shape.Duplicate (Project)

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

Синтаксис

expression. Дублировать

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

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

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объекта Shape

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

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