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.
Gibt eine MsoTriState-Konstante zurück, die angibt, ob die Linien eines angegebenen Shapes innerhalb seiner Grenzen gezeichnet werden, oder legt diese fest. Lese-/Schreibzugriff.
Syntax
Ausdruck. InsetPen
Ausdruck Eine Variable, die ein LineFormat-Objekt darstellt.
Rückgabewert
MsoTriState
Hinweise
Ein Fehler tritt auf, wenn Sie versuchen, diese Eigenschaft auf MsoTrue für eine Microsoft Office-AutoForm festzulegen, die Inset Pen-Zeichnen nicht unterstützt.
Der Wert der InsetPen -Eigenschaft für Tabellen ist immer MsoTrue. Beim Versuch, die Eigenschaft auf eine beliebige andere Wert führt zu einem Fehler festgelegt.
Der Wert der InsetPen -Eigenschaft kann eine der in der Microsoft Office-Typbibliothek deklarierten und in der folgenden Tabelle angezeigten MsoTriState -Konstanten sein.
| Konstante | Beschreibung |
|---|---|
| msoFalse | Die Linien werden direkt auf den Begrenzungen der angegebenen Form gezogen. |
| msoTriStateMixed | Ein Rückgabewert, der eine Kombination aus msoTrue und msoFalse für den angegebenen Formbereich angibt. |
| msoTriStateToggle | Ein Festgelegter Wert, der zwischen msoTrue und msoFalse wechselt. |
| msoTrue | Die Linien werden innerhalb der Begrenzungen der angegebenen Form gezogen. |
Beispiel
Im folgenden Beispiel werden zwei Rechtecke zu Seite 1 der aktiven Publikation hinzugefügt. Beim ersten werden die Linien innerhalb der Begrenzungen gezogen und beim zweiten auf den Begrenzungen.
Dim shpNew As Shape
With ActiveDocument.Pages(1).Shapes
Set shpNew = .AddShape(Type:=msoShapeRectangle, _
Left:=200, Top:=150, Width:=150, Height:=100)
With shpNew.Line
.Weight = 24
.InsetPen = msoTrue
End With
Set shpNew = .AddShape(Type:=msoShapeRectangle, _
Left:=200, Top:=300, Width:=150, Height:=100)
With shpNew.Line
.Weight = 24
.InsetPen = msoFalse
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.