Méthode CalloutFormat.PresetDrop (Word)
Indique si la jonction de la ligne de légende avec la zone de texte de légende s'effectue en haut, en bas, au milieu ou encore à une distance donnée par rapport au sommet ou à la base de la zone de texte.
Syntaxe
expression. PresetDrop (DropType)
expression Obligatoire. Variable qui représente un objet « CalloutFormat ».
Parameters
Nom | Requis/Facultatif | Type de données | Description |
---|---|---|---|
DropType | Obligatoire | MsoCalloutDropType | La position de départ du trait de légende par rapport à la zone de délimitation du texte. Si vous spécifiez DropType, les valeurs des propriétés Drop et AutoAttach et la position relative de la zone de texte de légende et le trait de légende (endroit sur lequel la légende pointe) est utilisée pour déterminer où le trait de légende rejoint la zone de texte. |
Exemple
Cet exemple montre comment placer le point de jonction de la ligne de légende en haut de la zone de délimitation du texte de la première forme du document actif. Cet exemple ne fonctionne que si la première forme géométrique est une légende.
ActiveDocument.Shapes(1).Callout.PresetDrop msoCalloutDropTop
Cet exemple montre comment basculer entre deux positions prédéfinies pour la première forme du document actif. Cet exemple ne fonctionne que si la première forme géométrique est une légende.
With ActiveDocument.Shapes(1).Callout
If .DropType = msoCalloutDropTop Then
.PresetDrop msoCalloutDropBottom
ElseIf .DropType = msoCalloutDropBottom Then
.PresetDrop msoCalloutDropTop
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