Propriedade CalloutFormat.DropType (Word)

Retorna um valor que indica onde a linha de texto explicativo é anexada à caixa do texto explicativo. Somente leitura MsoCalloutDropType.

Sintaxe

expressão. Droptype

expressão Obrigatório. Uma variável que representa um objeto "CalloutFormat".

Comentários

Se o texto explicativo soltar tipo é msoCalloutDropCustom, os valores das propriedades Drop e AutoAttach e as posições relativas da caixa de texto explicativo e origem da linha do texto explicativo (o lugar para o qual o texto explicativo aponta) são usados para determinar onde a linha de texto explicativo é anexada à caixa de texto.

Essa propriedade é somente leitura. Use o método PresetDrop para definir o valor dessa propriedade.

Exemplo

Este exemplo verifica se a terceira forma no documento ativo é um texto explicativo com uma colocação personalizada. Se for, o código substitui a colocação personalizada com uma de duas colocações personalizadas, dependendo se o valor da colocação personalizada é maior ou menor do que metade da altura da caixa do texto explicativo.

Dim docActive As Document 
 
Set docActive = ActiveDocument 
 
With docActive.Shapes(3) 
 If .Type = msoCallout Then 
 With .Callout 
 If .DropType = msoCalloutDropCustom Then 
 If .Drop < .Parent.Height / 2 Then 
 .PresetDrop msoCalloutDropTop 
 Else 
 .PresetDrop msoCalloutDropBottom 
 End If 
 End If 
 End With 
 End If 
End With

Confira também

Objeto CalloutFormat

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.