Método CalloutFormat.CustomDrop (Word)

Define a distância vertical (em pontos) da borda da caixa delimitadora de texto até o lugar onde a linha do texto explicativo é anexada à caixa de texto.

Sintaxe

expressão. CustomDrop (Drop)

expressão Obrigatório. Uma variável que representa um objeto "CalloutFormat".

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Drop	Obrigatório	Single	A distância da altura, em pontos.

Comentários

Essa distância é medida a partir da parte superior da caixa de texto, a menos que a propriedade AutoAttach seja definida como True e a caixa de texto esteja à esquerda da origem da linha de texto explicativo (o local para o qual o texto explicativo aponta), sendo que no caso a distância de posicionamento é medida da parte inferior da caixa de texto.

Se o método PresetDrop foi usado anteriormente para definir a queda para a chamada especificada, use a instrução a seguir antes de usar o método CustomDrop para que a configuração de drop personalizada entre em vigor.

PresetDrop msoCalloutDropCustom

Exemplo

Este exemplo cancela qualquer posicionamento predefinido para a primeira forma no documento ativo, define a distância de posicionamento personalizada como 14 pontos e especifica que a distância de posicionamento deve ser sempre medida a partir da parte superior. Para que o exemplo funcione, a primeira forma um precisa ser um texto explicativo.

Dim docActive As Document 
 
Set docActive = ActiveDocument 

With docActive.Shapes(1).Callout 
 .PresetDrop msoCalloutDropCustom 
 .CustomDrop 14 
 .AutoAttach = False 
End With

Confira também

Objeto CalloutFormat

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.