Метод 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 и обратная связь.