Метод Selection. дублировать (Visio)Selection.Duplicate method (Visio)

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

СинтаксисSyntax

Expression. Дубликатexpression.Duplicate

Expression (выражение ) Переменная, представляющая объект Selection .expression A variable that represents a Selection object.

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

SelectionSelection

ПримечанияRemarks

Повторяющийся метод дублирует указанный объект или выделенный фрагмент и добавляет копию на ту же страницу, что и исходный.The Duplicate method duplicates the specified object or selection and adds a copy to the same page as the original. Использование метода " дублировать " эквивалентно нажатию кнопки " дублировать " в меню " Вставка " на вкладке " Главная ".Using the Duplicate method is equivalent to clicking Duplicate on the Paste menu on the Home tab.

При использовании с объектом Shape повторяющийся метод **** дублирует фигуру.When used with a Shape object, the Duplicate method duplicates the shape.

При использовании с объектом Selection метод дублирует выделенный фрагмент. ****When used with a Selection object, the Duplicate method duplicates the selection.

ПримерExample

В приведенном ниже примере показано, как дублировать объекты Shape .The following example shows how to duplicate Shape objects. Код также работает для объектов Selection .The code also works for Selection objects.

Прежде чем запускать этот макрос, убедитесь, что в окне Microsoft Visio активна страница документа.Before running this macro, make sure a drawing page is active in the Microsoft Visio window.

 
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

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

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи?Have questions or feedback about Office VBA or this documentation? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.