CalloutFormat.CustomDrop-Methode (Word)
Legt den vertikalen Abstand (in Punkt) zwischen dem Rand des Textbereichs und der Stelle fest, an der die Legendenlinie mit dem Textfeld verbunden ist.
Syntax
Ausdruck. CustomDrop (Drop)
expression Erforderlich. Eine Variable, die ein "CalloutFormat"-Objekt darstellt.
Parameter
| Name | Erforderlich/Optional | Datentyp | Beschreibung |
|---|---|---|---|
| Drop | Erforderlich | Single | Der Abstand in Punkten. |
Hinweise
Dieser Abstand wird nur dann nicht vom oberen Rand des Textfelds gemessen, wenn die AutoAttach-Eigenschaft auf True festgelegt ist und das Textfeld sich links vom Ursprung der Legendenlinie befindet (der Position, auf die die Legende zeigt). In diesem Fall wird der Ansatzabstand vom unteren Rand des Textfelds gemessen.
Wenn zuvor die PresetDrop-Methode verwendet wurde, um den Drop für die angegebene Legende festzulegen, verwenden Sie die folgende Anweisung, bevor Sie die CustomDrop-Methode verwenden, damit die benutzerdefinierte Drop-Einstellung wirksam wird.
PresetDrop msoCalloutDropCustom
Beispiel
In diesem Beispiel werden voreingestellte Ansätze annulliert, die für die erste Form im aktiven Dokument festgelegt wurden, der benutzerdefinierte Ansatzabstand auf 14 Punkt festgelegt und angegeben, dass der Ansatzabstand immer von oben gemessen wird. 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
.PresetDrop msoCalloutDropCustom
.CustomDrop 14
.AutoAttach = False
End With
Siehe auch
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.