CalloutFormat.DropType-Eigenschaft (PowerPoint)

Gibt einen Wert zurück, der die Position angibt, an der die Legendenlinie mit dem Legendentextfeld verbunden ist. Schreibgeschützt.

Syntax

Ausdruck. DropType

Ausdruck Eine Variable, die ein CalloutFormat-Objekt darstellt.

Rückgabewert

MsoCalloutDropType

HinwBemerkungeneise

Wenn der Legendenverknüpfungstyp msoCalloutDropCustom ist, werden die Werte der Eigenschaften Dropund 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.

Der von der DropType -Eigenschaft zurückgegebene Wert kann einer der folgenden MsoCalloutDropType -Konstanten entsprechen.

msoCalloutDropBottom
msoCalloutDropCenter
msoCalloutDropCustom
msoCalloutDropMixed
msoCalloutDropTop

Beispiel

In diesem Beispiel wird überprüft, ob Form 3 in myDocument 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.

Set myDocument = ActivePresentation.Slides(1)

With myDocument.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

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.