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