Método Page.DropContainer (Visio)

Cria um novo objeto Shape de contêiner na página, coloca o contêiner ao redor das formas de destino especificadas e adiciona as formas de destino ao contêiner. Retorna a forma do contêiner.

Sintaxe

expression. DropContainer( _ObjectToDrop_ , _TargetShapes_ )

Expressão Uma variável que representa um objeto Page .

Parâmetros

Valor de retorno

Formato

Comentários

Para passar um objeto Master para o parâmetro ObjectToDrop , use o método Documents.OpenEx e o método Application.GetBuiltInStencilFile , passando-o visBuiltInStencilContainers, para abrir o estêncil de contêiner interno oculto. Em seguida, use a propriedade Masters.ItemU para obter o contêiner específico desejado do estêncil.

Um IDataObject que você passa para ObjectToDrop deve ser fornecido pelo Microsoft Visio e deve estar no mesmo espaço de processo que o Visio.

Se ObjectToDrop não for um objeto do Visio, ou se ele não for um contêiner, o Visio retornará um erro de parâmetro inválido. Se o valor que você passar for uma forma que não corresponda ao contexto do método, o Visio retornará um erro de origem inválida.

Se o parâmetro TargetShapes for Nothing, o Visio colocará a forma do contêiner no centro da página, desprovida de formas de destino. Se as formas de destino especificadas não forem membros de nível superior da página, o Visio retornará um erro de parâmetro inválido.

O método DropContainer corresponde ao comando Inserir Contêiner na interface de usuário do Visio. (Na guia Inserir, clique em Contêiner.)

Exemplo

O exemplo de VBA (Visual Basic for Applications) a seguir mostra como usar o método DropContainer para adicionar um contêiner do estêncil de contêiner interno oculto à página ativa para conter a forma ou as formas selecionadas. Antes de executar essa macro, certifique-se de que há uma forma selecionada (ou uma seleção de formas) na página ativa.

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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.