Метод Shape.Duplicate (Visio)
Дублирует объект .
Синтаксис
expression. Дублировать
Выражение Переменная, представляющая объект Shape .
Возвращаемое значение
Shape
Примечания
Метод Duplicate дублирует указанный объект или выделение и добавляет копию на ту же страницу, что и исходный объект. Использование метода Duplicate эквивалентно нажатию кнопки Дублировать в меню Вставка на вкладке Главная .
При использовании с объектом Shape метод Duplicate дублирует фигуру.
При использовании с объектом Selection метод Duplicate дублирует выделение.
Пример
В следующем примере показано, как дублировать объекты Shape . Код также работает с объектами Selection .
Перед выполнением этого макроса убедитесь, что в окне Microsoft Visio активна страница документа.
Public Sub Duplicate_Example()
Dim vsoOriginalShape As Visio.Shape
Dim vsoDuplicateShape As Visio.Shape
Set vsoOriginalShape = ActivePage.DrawLine(1, 1, 5, 5)
Set vsoDuplicateShape = vsoOriginalShape.Duplicate
vsoDuplicateShape.Cells("BeginY") = "2"
End Sub
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.