CalloutFormat.DropType-Eigenschaft (Word)
Gibt einen Wert zurück, der die Position angibt, an der die Legendenlinie mit dem Legendentextfeld verbunden ist. MsoCalloutDropType-Wert mit Lese-/Schreibzugriff.
Syntax
Ausdruck. DropType
expression Erforderlich. Eine Variable, die ein "CalloutFormat"-Objekt darstellt.
Hinweise
Wenn der Legendenverknüpfungstyp msoCalloutDropCustom ist, werden die Werte der Eigenschaften Drop und AutoAttach sowie die relativen Positionen des Legendentextfelds und des Legendenlinienursprungs (die Stelle, auf die die Legende zeigt) verwendet, um zu bestimmen, wo die Legendenlinie an das Textfeld angefügt wird.
Diese Eigenschaft ist schreibgeschützt. Verwenden Sie die PresetDrop-Methode , um den Wert dieser Eigenschaft festzulegen.
Beispiel
In diesem Beispiel wird überprüft, ob die dritte Form im aktiven Dokument eine Legende mit einem benutzerdefinierten Drop ist. Wenn dies der Fall ist, ersetzt der Code den benutzerdefinierten Drop durch einen von zwei voreingestellten Drops, je nachdem, ob der benutzerdefinierte Ablagewert größer oder kleiner als die Hälfte der Höhe des Legendentextfelds ist.
Dim docActive As Document
Set docActive = ActiveDocument
With docActive.Shapes(3)
If .Type = msoCallout Then
With .Callout
If .DropType = msoCalloutDropCustom Then
If .Drop < .Parent.Height / 2 Then
.PresetDrop msoCalloutDropTop
Else
.PresetDrop msoCalloutDropBottom
End If
End If
End With
End If
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.