CalloutFormat.PresetDrop-Methode (PowerPoint)
Gibt an, ob die Legendenlinie im Legendentextfeld oben, unten oder in der Mitte angesetzt wird, oder ob sie an einen Punkt in einem bestimmten Abstand vom oberen oder unteren Rand des Textfelds positioniert wird.
Syntax
Ausdruck. PresetDrop (DropType)
Ausdruck Eine Variable, die ein CalloutFormat-Objekt darstellt.
Parameter
Name | Erforderlich/Optional | Datentyp | Beschreibung |
---|---|---|---|
DropType | Erforderlich | MsoCalloutDropType | Die Anfangsposition der Legendenlinie relativ zu dem Begrenzungsfeld des Texts. |
HinwBemerkungeneise
Der Wert des DropType-Parameters kann eine der folgenden MsoCalloutDropType-Konstanten sein. Übergeben MsoCalloutDropCustom bewirkt, dass Ihr Code fehlschlägt.
msoCalloutDropBottom |
msoCalloutDropCenter |
msoCalloutDropCustom |
msoCalloutDropMixed |
msoCalloutDropTop |
Beispiel
In diesem Beispiel wird festgelegt, dass die Legendenlinie oben im umgebenden Textbegrenzungsrechteck für Form 1 in myDocument angesetzt wird. Damit das Beispiel funktioniert, muss es sich bei Form 1 um eine Legende handeln.
Set myDocument = ActivePresentation.Slides(1)
myDocument.Shapes(1).Callout.PresetDrop msoCalloutDropTop
In diesem Beispiel wird zwischen zwei voreingestellten Drops für Form 1 in myDocument gewechselt. Damit das Beispiel funktioniert, muss es sich bei Form 1 um eine Legende handeln.
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes(1).Callout
If .DropType = msoCalloutDropTop Then
.PresetDrop msoCalloutDropBottom
ElseIf .DropType = msoCalloutDropBottom Then
.PresetDrop msoCalloutDropTop
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.
Feedback
https://aka.ms/ContentUserFeedback.
Bald verfügbar: Im Laufe des Jahres 2024 werden wir GitHub-Issues stufenweise als Feedbackmechanismus für Inhalte abbauen und durch ein neues Feedbacksystem ersetzen. Weitere Informationen finden Sie unterFeedback senden und anzeigen für