Propriété CalloutFormat.DropType (PowerPoint)
Cette propriété renvoie une valeur qui indique l’emplacement du point de jonction de la ligne de légende avec la zone de texte. En lecture seule.
Syntaxe
expression. DropType
Expression Variable qui représente un objet CalloutFormat .
Valeur renvoyée
MsoCalloutDropType
Remarques
Si le type de dépôt de légende est msoCalloutDropCustom, les valeurs des propriétés Dropet AutoAttach , ainsi que les positions relatives de la zone de texte de légende et de l’origine de la ligne de légende (l’emplacement vers lequel la légende pointe) sont utilisées pour déterminer l’emplacement où la ligne de légende s’attache à la zone de texte.
Cette propriété est en lecture seule. Utilisez la méthode PresetDrop pour définir la valeur de cette propriété.
La valeur retournée par la propriété DropType peut être l’une de ces constantes MsoCalloutDropType .
msoCalloutDropBottom |
msoCalloutDropCenter |
msoCalloutDropCustom |
msoCalloutDropMixed |
msoCalloutDropTop |
Exemple
Cet exemple montre comment déterminer si la forme 3 dans myDocument est une légende assortie d’un déroulement personnalisé. Si tel est le cas, et si sa valeur est supérieure ou inférieure à la moitié de la hauteur de la zone de texte, le code remplace cette projection personnalisée par l'une des deux projections prédéfinies.
Set myDocument = ActivePresentation.Slides(1)
With myDocument.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
Voir aussi
Assistance et commentaires
Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.
Commentaires
https://aka.ms/ContentUserFeedback.
Bientôt disponible : Tout au long de 2024, nous allons supprimer progressivement GitHub Issues comme mécanisme de commentaires pour le contenu et le remplacer par un nouveau système de commentaires. Pour plus d’informations, consultezEnvoyer et afficher des commentaires pour