CalloutFormat.AutoAttach-Eigenschaft (Publisher)

Gibt eine MsoTriState-Konstante zurück, die angibt, ob sich die Stelle, an der die Legendenlinie an das Legendentextfeld angefügt ist, ändert, je nachdem, ob sich der Ursprung der Legendenlinie (an der die Legende zeigt) links oder rechts vom Legendentextfeld befindet, oder legt diese Konstante fest. Lese-/Schreibzugriff.

Syntax

Ausdruck. AutoAttach

Ausdruck Eine Variable, die ein CalloutFormat-Objekt darstellt.

Rückgabewert

MsoTriState

HinwBemerkungeneise

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 auf eine Legende aus, wenn sie über einen explizit festgelegten Drop-Wert verfügt, d. h. wenn der Wert der DropType-EigenschaftmsoCalloutDropCustom ist. Standardmäßig haben Legenden explizit Löschwerte festgelegt, wenn sie erstellt werden.

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.