Método Page.DropCallout (Visio)

Cria um novo objeto Shape de chamada na página próxima à forma de destino especificada e associa a chamada à forma de destino. Retorna a forma do texto explicativo.

Sintaxe

expression. DropCallout( _ObjectToDrop_ , _TargetShape_ )

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

Parâmetros

Nome Obrigatório/Opcional Tipo de dados Descrição
ObjectToDrop Obrigatório [DESCONHECIDO] O texto explicativo a ser adicionado à página. Pode ser um objeto Mestre, MestreShortcut, Shape ou IDataObject .
TargetShape Obrigatório Formato A forma existente com a qual deve ser associado o texto explicativo.

Valor de retorno

Formato

Comentários

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

Se o paremeter TargetShape for nulo, o Visio colocará a forma de chamada no centro da página e não a associará a nenhuma forma 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 DropCallout corresponde ao comando Inserir Texto Explicativo na interface de usuário do Visio. (Na guia Inserir, clique em Texto Explicativo.)

Exemplo

O exemplo de Visual Basic for Applications (VBA) a seguir mostra como usar o método DropCallout para adicionar uma chamada à página ativa e associá-la a uma forma específica.

Dim vsoDocument As Visio.Document
Set vsoDocument = Application.Documents.OpenEx(Application.GetBuiltInStencilFile(visBuiltInStencilCallouts, visMSUS), visOpenHidden) 
Application.ActivePage.DropCallout vsoDocument.Masters.ItemU("Text callout"), vsoTargetShape
vsoDocument.Close

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.