Propriedade CalloutFormat.Drop (Excel)

Para notas de aviso com um valor pendente definido explicitamente, esta propriedade devolve a distância vertical (em pontos) da margem da caixa delimitadora de texto para o local onde a linha de nota de aviso é anexada à caixa de texto. Somente leitura único.

Sintaxe

expressão. Largar

expressão Uma variável que representa um objeto CalloutFormat .

Comentários

Esta distância é medida a partir da parte superior da caixa de texto, a menos que a propriedade Ligação Automática esteja definida como Verdadeiro e a caixa de texto esteja à esquerda da origem da linha de nota de aviso (o local para o qual a nota de aviso aponta), caso em que a distância de remoção é medida a partir da parte inferior da caixa de texto.

Use o método CustomDrop para definir o valor dessa propriedade.

O valor desta propriedade reflete com precisão a posição do anexo da linha de nota de aviso para a caixa de texto apenas se a nota de aviso tiver um valor pendente explicitamente definido, 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.