Hinweis
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, sich anzumelden oder das Verzeichnis zu wechseln.
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, das Verzeichnis zu wechseln.
Gibt eine MsoTriState-Konstante zurück oder legt sie fest, die angibt, ob sich die Stelle, an der die Legendenlinie an das Legendentextfeld angefügt wird, ändert, je nachdem, ob sich der Ursprung der Legendenlinie (wo die Legenden zeigen) links oder rechts des Legendentextfelds befindet. Lese-/Schreibzugriff.
Syntax
Ausdruck verwendet werden. Automatisch anfügen
Ausdruck Eine Variable, die ein CalloutFormat-Objekt darstellt.
Rückgabewert
MsoTriState
Hinweise
Der Wert der AutoAttach -Eigenschaft kann eine der in der Microsoft Office-Typbibliothek deklarierten MsoTriState -Konstanten sein.
Wenn der Wert dieser Eigenschaft auf msoTrue festgelegt ist, ist der Wert (der vertikale Abstand vom Rand des Legendentextfelds an die Stelle, wo die Legendenlinie ansetzt) vom oberen Rand des gemessen, sofern das Textfeld befindet sich rechts vom Ursprung des Textfelds gemessen, wenn das Textfeld links vom Ursprung befindet.
Wenn der Wert dieser Eigenschaft auf msoFalse festgelegt ist, wird der Wert von im oberen Bereich des Textfelds, unabhängig von den relativen Positionen im Textfeld und Ursprung gemessen. Verwenden Sie die CustomDrop -Methode zum Festlegen des Werts Drop, und verwenden Sie die Drop -Eigenschaft den Wert zurückgegeben.
Das Festlegen dieser Eigenschaft wirkt sich nur dann auf ein Popup aus, wenn es einen explizit festgelegten Drop-Wert aufweist, d. h. wenn der Wert der DropType-Eigenschaft"msoCalloutDropCustom" lautet. Standardmäßig werden für Popups beim Erstellen explizit Drop-Werte festgelegt.
Beispiel
Bei diesem Beispiel werden auf der ersten Seite zwei Legenden hinzugefügt. Eine der beiden Legenden wird automatisch angesetzt, die andere nicht. Wenn Sie den Linienursprung der automatisch angefügten Legende auf die rechte Seite des eingefügten Textfelds ziehen, ändert sich die Position des Textfelds. Die Legende, die nicht automatisch eingefügt wird, weist dieses Verhalten nicht auf.
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
Support und Feedback
Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.