Propriété CalloutFormat.AutoAttach (éditeur)

Renvoie ou définit une constante MsoTriState indiquant si l’emplacement d’attache de la ligne de légende à la zone de texte de légende change selon que l’origine de la ligne de légende (où pointe la légende) se trouve à gauche ou à droite de la zone de texte de légende. Lecture-écriture.

Syntaxe

expression. Attacher automatiquement

expression Variable qui représente un objet CalloutFormat .

Valeur renvoyée

MsoTriState

Remarques

La valeur de la propriété AutoAttach peut être une des constantes MsoTriState déclarées dans la bibliothèque de type Microsoft Office.

Lorsque la valeur de cette propriété a la valeur msoTrue, la valeur de projection (la distance verticale entre le bord de la zone de texte de légende et la jonction de la ligne de légende) est mesurée à partir du haut de la zone de texte lorsque la zone de texte est à droite de l'origine, et elle est mesurée à partir du bas de la zone de texte lorsque la zone de texte se trouve à gauche de l'origine.

Lorsque la valeur de cette propriété est msoFalse, la valeur de projection est toujours mesurée à partir du haut de la zone de texte, quelle que soit la position de la zone de texte et l'origine. Utilisez la méthode CustomDrop pour définir la valeur de rejet et utilisez la propriété Drop pour renvoyer la valeur de dépôt.

La définition de cette propriété affecte une légende uniquement si elle a une valeur de suppression explicitement définie, c’est-à-dire si la valeur de la propriété DropType est msoCalloutDropCustom. Par défaut, les légendes possèdent des valeurs de déplacement définies explicitement dès leur création.

Exemple

Cet exemple ajoute deux légendes sur la première page. L'une d'elles est automatiquement attachée et l'autre non. Si vous modifiez l'origine de la ligne de la légende qui est automatiquement attachée pour la placer à droite de la zone de texte, cette dernière change de position. La légende qui n'est pas automatiquement attachée ne présente pas ce comportement.

With ActivePublication.Pages(1).Shapes 
 With .AddCallout(Type:=msoCalloutTwo, _ 
 Left:=420, Top:=170, Width:=200, Height:=50) 
 .TextFrame.TextRange.Text = "auto-attached" 
 .Callout.AutoAttach = msoTrue 
 End With 
 With .AddCallout(Type:=msoCalloutTwo, _ 
 Left:=420, Top:=350, Width:=200, Height:=50) 
 .TextFrame.TextRange.Text = "not auto-attached" 
 .Callout.AutoAttach = msoFalse 
 End With 
End With 

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.