Método Page.DropContainer (Visio)

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

Sintaxe

expression. DropContainer( _ObjectToDrop_ , _TargetShapes_ )

expressão Uma variável que representa um objeto Página .

Parâmetros

Valor de retorno

Formato

Comentários

Para transmitir um objeto Principal para o parâmetro ObjectToDrop , utilize o método Documents.OpenEx e o método Application.GetBuiltInStencilFile , transmitindo-o visBuiltInStencilContainers, para abrir o stencil de contentor oculto e incorporado. Em seguida, utilize a propriedade Masters.ItemU para obter o contentor específico que pretende do stencil.

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 Nada, o Visio coloca a forma de contentor 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 Visual Basic for Applications (VBA) seguinte mostra como utilizar o método DropContainer para adicionar um contentor do stencil de contentor oculto incorporado à página ativa para conter a forma ou formas selecionadas. Antes de executar esta macro, certifique-se de que existe 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.