Метод Selection.Duplicate (Visio)

Дублирует выделенный фрагмент.

Синтаксис

выражение. Дублировать

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

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

Selection

Примечания

Метод Дублировать дублирует указанный объект или выделенный фрагмент и добавляет копию на ту же страницу, что и исходный файл. Использование метода "Дублировать " аналогично нажатию кнопки "Дублировать " в меню "Вставить " на вкладке " Главная ".

При использовании с объектом 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 и обратная связь.