Propriedade CalloutFormat.Drop (Excel)
Para chamadas com um valor suspenso definido explicitamente, essa propriedade retorna a distância vertical (em pontos) da borda da caixa delimitadora de texto até o local em que a linha de chamada é anexada à caixa de texto. Somente leitura único.
Sintaxe
expressão. Gota
Expressão Uma variável que representa um objeto CalloutFormat .
Comentários
Essa distância é medida da parte superior da caixa de texto, a menos que a propriedade AutoAttach seja definida como True, e a caixa de texto fica à esquerda da origem da linha de chamada (o local ao 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 da linha de chamada à caixa de texto somente se a chamada tiver um valor suspenso definido explicitamente, ou seja, se o valor da propriedade DropType for msoCalloutDropCustom.
Exemplo
Este exemplo substitui o posicionamento personalizado da forma um de myDocument por um dentre dois posicionamentos predefinidos, dependendo do valor do posicionamento personalizado ser maior ou menor que a metade da altura da caixa do texto explicativo. Para o exemplo funcionar, a forma um deve ser um texto explicativo.
Set myDocument = Worksheets(1)
With myDocument.Shapes(1).Callout
If .DropType = msoCalloutDropCustom Then
If .Drop < .Parent.Height / 2 Then
.PresetDrop msoCalloutDropTop
Else
.PresetDrop msoCalloutDropBottom
End If
End If
End With
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.