CalloutFormat.Drop-Eigenschaft (Word)

Gibt den vertikalen Abstand (in Punkt) zwischen dem Rand des Textbereichs und der Stelle an, an der die Legendenlinie mit dem Textfeld verbunden ist. Schreibgeschützter Single-Wert.

Syntax

Ausdruck. Drop

Ausdruck Eine Variable, die ein "CalloutFormat"-Objekt darstellt.

HinwBemerkungeneise

Die Drop-Eigenschaft gilt für Legenden mit einem explizit festgelegten Drop-Wert. Dieser Abstand wird vom oberen Rand des Textfelds gemessen, es sei denn, das Textfeld befindet sich links vom Ursprung der Legendenlinie (der Stelle, auf die die Legende zeigt). In diesem Fall wird der Ablageabstand vom unteren Rand des Textfelds gemessen.

Verwenden Sie die CustomDrop -Methode, um den Wert dieser Eigenschaft festzulegen.

Der Wert dieser Eigenschaft zeigt die Position der die Legendenlinie mit dem Textfeld nur dann, wenn die Legende einen explizit festgelegten Wert drop - d. h., wenn der Wert der DropType -Eigenschaft MsoCalloutDropCustom ist. Verwenden Sie die -Anweisung PresetDrop msoCalloutCustomDrop , um die DropType-Eigenschaft auf msoCalloutDropCustom festzulegen.

Beispiel

In diesem Beispiel wird der benutzerdefinierte Drop für die erste Form im aktiven Dokument durch einen von zwei voreingestellten Löschvorgängen ersetzt, je nachdem, ob der benutzerdefinierte Ablagewert größer oder kleiner als die Hälfte der Höhe des Legendentextfelds ist. Dieses Beispiel funktioniert nur, wenn es sich bei der ersten Form um eine Legende handelt.

Dim docActive As Document 
 
Set docActive = ActiveDocument 
 
With docActive.Shapes(1).Callout 
 If .DropType = msoCalloutDropCustom Then 
 If .Drop < .Parent.Height / 2 Then 
 .PresetDrop msoCalloutDropTop 
 Else 
 .PresetDrop msoCalloutDropBottom 
 End If 
 End If 
End With

Siehe auch

CalloutFormat-Objekt

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.