LineFormat.InsetPen-Eigenschaft (Publisher)
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.