Метод Document.Drop (Visio)

Статья
04/07/2023

Создает новый главный объект путем перетаскивания объекта в получающий объект, например набор элементов или документ, либо коллекцию Master или MasterShortcuts .

Синтаксис

expression. Drop (ObjectToDrop, xPos, yPos)

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

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
ObjectToDrop	Обязательный	[НЕИЗВЕСТНО]	Отбрасываемый объект. Хотя обычно это объект Visio, например Master, Shape или Selection , это может быть любой объект OLE, предоставляющий интерфейс IDataObject .
xPos	Обязательный	Integer	Координата X, в которой размещается центр ширины фигуры или PinX.
yPos	Обязательный	Integer	Координата Y, в которой размещается центр высоты фигуры или PinY.

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

Master

Замечания

Использование метода Drop аналогично перемещению фигуры с помощью мыши. Удаленный объект ( ObjectToDrop) может быть главным объектом или фигурой на странице документа.

Если ObjectToDrop является главным, закрепление образца сбрасывается с заданных координат. Булавка мастера часто, но не обязательно, находится в центре вращения.

Чтобы создать новый образец в наборе элементов, примените метод Drop к объекту Document , представляющему набор элементов (набор элементов должен быть открыт как оригинал или копия, а не только для чтения). В этом случае аргументы xPos и yPos игнорируются, и возвращается новый созданный главный объект.

Пример

В следующем примере показано, как использовать метод Drop для создания образца путем перетаскивания фигуры в объект Document .

 
Public Sub Drop_Example() 
 
    Dim vsoShape As Visio.Shape  
    Dim vsoMaster As Visio.Master  
 
    Set vsoShape = ActivePage.DrawRectangle(1, 2, 2, 1)  
 
    'Create a master in the document.  
    'The master appears on the document stencil.  
    Set vsoMaster = ActiveDocument.Drop(vsoShape, 0, 0)  
 
End Sub

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

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через