Propriedade CalloutFormat.Drop (Publisher)
Para textos explicativos com explicitamente definido drop valor, essa propriedade retorna a distância vertical a partir da borda da caixa delimitadora até o lugar onde a linha de texto explicativo é anexada à caixa de texto de texto.
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 fique à esquerda da origem da linha de chamada (onde a chamada aponta). Nesse caso, a distância de posicionamento é medida da parte inferior da caixa de texto. Somente leitura Variant.
Sintaxe
expressão. Gota
Expressão Uma variável que representa um objeto CalloutFormat .
Valor de retorno
Variant
Comentários
Os valores numéricos são avaliados em pontos; cadeias de caracteres podem estar em todas as unidades com suporte do Microsoft Publisher (por exemplo, "2.5 in").
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 primeira forma na publicação ativa por um de dois posicionamentos predefinidos, dependendo se o valor do posicionamento personalizado é maior ou menor do que a metade da altura da caixa de texto explicativo. Para que o exemplo funcione, a forma deve ser um texto explicativo.
With ActiveDocument.Pages(1).Shapes(1).Callout
If .DropType = msoCalloutDropCustom Then
If .Drop < .Parent.Height / 2 Then
.PresetDrop DropType:=msoCalloutDropTop
Else
.PresetDrop DropType:=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.