Propriedade CalloutFormat.Drop (Word)
Retorna 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. Somente leitura único.
Sintaxe
expressão. Gota
Expressão Uma variável que representa um objeto "CalloutFormat".
Comentários
A propriedade Drop se aplica a textos explicativos com um valor de posicionamento explicitamente definido. Essa distância é medida da parte superior da caixa de texto, a menos que a caixa de texto fique à esquerda da origem da linha de chamada (o local para o qual a chamada aponta), nesse caso, a distância de queda é medida da parte inferior da caixa de texto.
Use o método CustomDrop para definir o valor dessa propriedade.
O valor dessa propriedade reflete com precisão a posição do anexo de linha do texto explicativo à caixa de texto somente se o texto explicativo tiver explicitamente definido drop valor ou seja, se o valor da propriedade DropType for msoCalloutDropCustom. Use a instrução PresetDrop msoCalloutCustomDrop para definir a propriedade DropType como msoCalloutDropCustom.
Exemplo
Este exemplo substitui a colocação personalizada da primeira forma no documento ativo por uma de duas colocações personalizadas, dependendo se o valor da colocação personalizada é maior ou menor do que metade da altura da caixa de texto do texto explicativo. Para que o exemplo funcione, a primeira forma precisa ser um texto explicativo.
Dim docActive As Document
Set docActive = ActiveDocument
With docActive.Shapes(1).Callout
If .DropType = msoCalloutDropCustom Then
If .Drop < .Parent.Height / 2 Then
.PresetDrop msoCalloutDropTop
Else
.PresetDrop msoCalloutDropBottom
End If
End If
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.