Метод ShapeRange.Duplicate (Project)

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

Синтаксис

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

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

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

ShapeRange

Замечания

Горизонтальное и вертикальное смещение повторяемого диапазона фигур — это 12 точек от исходного диапазона фигур.

Пример

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

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

См. также

Метод ShapeRange ObjectShape.Duplicate

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

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