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

HinwBemerkungeneise

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.