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
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.