Propriété CalloutFormat.AutoAttach (Excel)

Cette propriété a la valeur True si le point d'attache du trait de légende à la zone de texte de la légende change selon que l'origine du trait de légende (l'emplacement vers lequel pointe la légende) est à gauche ou à droite de la zone de texte de la légende. MsoTriState en lecture-écriture.

Syntaxe

expression. AutoAttach

Expression Variable qui représente un objet CalloutFormat .

Remarques

Lorsque la valeur de cette propriété est True, la valeur de déplacement (distance verticale entre le bord de la zone de texte de légende et l’endroit où la ligne de légende est attachée) est mesurée à partir du haut de la zone de texte lorsque la zone de texte se trouve à 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 cette propriété a la valeur False, la valeur de projection est toujours mesurée à partir du haut de la zone de texte, sans tenir compte des positions relatives de la zone de texte et de l'origine. Utilisez la méthode CustomDrop pour définir la valeur de suppression et utilisez la propriété Drop pour renvoyer la valeur de suppression.

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. Les légendes sont créées avec une valeur de projection explicite par défaut.

Exemple

Cet exemple montre comment ajouter deux légendes à myDocument. Si vous faites glisser la zone de texte pour chacune de ces légendes à gauche de l'origine du trait de légende, le point d'attache du trait de légende devient le point d'attache automatique.

Set myDocument = Worksheets(1) 
With myDocument.Shapes 
    With .AddCallout(msoCalloutTwo, 420, 170, 200, 50) 
        .TextFrame.Characters.Text = "auto-attached" 
        .Callout.AutoAttach = True 
    End With 
    With .AddCallout(msoCalloutTwo, 420, 350, 200, 50) 
        .TextFrame.Characters.Text = "not auto-attached" 
        .Callout.AutoAttach = False 
    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.