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
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.