Propriedade CalloutFormat.Drop (PowerPoint)
Para textos explicativos com um valor de posicionamento explicitamente definido, essa propriedade retorna a distância vertical (em pontos) da extremidade da caixa delimitadora de texto até o lugar onde a linha do texto explicativo é anexada à caixa de texto. Somente leitura.
Sintaxe
expressão. Gota
Expressão Uma variável que representa um objeto CalloutFormat .
Valor de retorno
Único
Comentários
A distância é medida da parte superior da caixa de texto, a menos que a propriedade AutoAttach é definida como True e a caixa de texto estiver à esquerda da origem da linha do texto explicativo (o lugar para o qual o texto explicativo aponta). Nesse caso, a distância de posicionamento é 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 de linha do texto explicativo à caixa de texto somente se o texto explicativo tiver explicitamente definido drop valor 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 = ActivePresentation.Slides(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
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.
Comentários
https://aka.ms/ContentUserFeedback.
Em breve: Ao longo de 2024, eliminaremos os problemas do GitHub como o mecanismo de comentários para conteúdo e o substituiremos por um novo sistema de comentários. Para obter mais informações, consulteEnviar e exibir comentários de