Метод Page.DropContainer (Visio)

Создает новый объект Shape контейнера на странице, помещает контейнер вокруг указанных целевых фигур и добавляет целевые фигуры в контейнер. Возвращает форму контейнера.

Синтаксис

выражение. DropContainer( _ObjectToDrop_ , _TargetShapes_ )

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

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
ObjectToDrop	Обязательный	[НЕИЗВЕСТНО]	Фигура контейнера, добавляемая на страницу. Может быть: объект Master, MasterShortcut, Shape или IDataObject .
Целевые фигуры	Обязательный	[НЕИЗВЕСТНО]	Фигуры, которые должен содержать контейнер. Может быть фигурой или объектом выделения . Фигуры или выделение уже должны быть на странице.

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

Shape

Примечания

Чтобы передать объект Master для параметра ObjectToDrop , используйте метод Documents.OpenEx и метод Application.GetBuiltInStencilFile , передав его visBuiltInStencilContainers, чтобы открыть скрытый встроенный набор элементов контейнера. Затем используйте свойство Masters.ItemU , чтобы получить нужный контейнер из набора элементов.

IDataObject, который вы выдаете за ObjectToDrop, должен быть предоставлен Microsoft Visio и должен находиться в том же пространстве процесса, что и Visio.

Если ObjectToDrop не является объектом Visio или не является контейнером, Visio возвращает ошибку с недопустимым параметром. Если переданное значение является фигурой, не соответствующей контексту метода, Visio возвращает ошибку "Недопустимый источник".

Если параметр TargetShapes имеет значение Nothing, Visio помещает фигуру-контейнер в центр страницы, без каких-либо целевых фигур. Если указанные целевые фигуры не являются участниками страницы верхнего уровня, Visio возвращает ошибку "Недопустимый параметр".

Метод DropContainer соответствует команде Insert Container в пользовательском интерфейсе Visio. (На вкладке "Вставка " щелкните "Контейнер".)

Пример

В следующем примере Visual Basic для приложений (VBA) показано, как использовать метод DropContainer для добавления контейнера из скрытого встроенного набора элементов контейнеров на активную страницу, содержащую выбранную фигуру или фигуры. Перед запуском макроса убедитесь, что на активной странице есть выделенная фигура (или выделение фигур).

Public Sub DropContainer_Example()

    Dim vsoDocument As Visio.Document
    Set vsoDocument = Application.Documents.OpenEx(Application.GetBuiltInStencilFile(visBuiltInStencilContainers, visMSUS), visOpenHidden)
    Application.ActivePage.DropContainer vsoDocument.Masters.ItemU("Container 1"), Application.ActiveWindow.Selection
    vsoDocument.Close
    
End Sub

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

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