Hinweis
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, sich anzumelden oder das Verzeichnis zu wechseln.
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, das Verzeichnis zu wechseln.
True, wenn sich die Position, an der die Legendenlinie mit dem Legendentextfeld verbunden ist, in Abhängigkeit davon ändert, ob der Ursprung der Legendenlinie (wohin die Legende zeigt) links oder rechts vom Textfeld der Legende liegt. MsoTriState mit Lese-/Schreibzugriff.
Syntax
Ausdruck verwendet werden. Automatisch anfügen
Ausdruck Eine Variable, die ein CalloutFormat-Objekt darstellt.
Hinweise
Wenn der Wert dieser Eigenschaft "True" lautet, wird der Drop-Wert (der vertikale Abstand vom Rand des Popup-Textfelds zu der Stelle, an der die Legendenlinie anfügt) vom oberen Rand des Textfelds gemessen, wenn sich das Textfeld rechts vom Ursprung befindet, und er wird vom unteren Rand des Textfelds gemessen, wenn sich das Textfeld links vom Ursprung befindet.
Besitzt diese Eigenschaft den Wert FalseFalse, wird der Ansatzwert immer von der Oberkante des Textfelds gemessen, unabhängig davon wie Textfeld und Ursprung zueinander liegen. Verwenden Sie die CustomDrop -Methode zum Festlegen des Werts Drop, und verwenden Sie die Drop -Eigenschaft den Wert zurückgegeben.
Das Festlegen dieser Eigenschaft wirkt sich nur dann auf ein Popup aus, wenn es einen explizit festgelegten Drop-Wert aufweist, d. h. wenn der Wert der DropType-Eigenschaft"msoCalloutDropCustom" lautet. Beim Erstellen von Legenden werden diesen standardmäßig explizit festgelegte Ansatzwerte zugewiesen.
Beispiel
Dieses Beispiel fügt zu myDocument zwei Legenden hinzu. Wenn Sie die Textfelder dieser beiden Legenden auf die linke Seite der Legendenlinie ziehen, ändert sich bei der automatisch verbundenen Legende der Ort, an dem die Legendenlinie mit dem Textfeld verbunden ist.
Set myDocument = Worksheets(1)
With myDocument.Shapes
With .AddCallout(msoCalloutTwo, 420, 170, 200, 50)
.TextFrame.Characters.Text = "auto-attached"
.Callout.AutoAttach = True
End With
With .AddCallout(msoCalloutTwo, 420, 350, 200, 50)
.TextFrame.Characters.Text = "not auto-attached"
.Callout.AutoAttach = False
End With
End With
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.