Propriété LineFormat.InsetPen (Publisher)
Renvoie ou définit une constante MsoTriState indiquant si les lignes d’une forme spécifiée sont dessinées à l’intérieur de ses limites. Lecture-écriture.
Syntaxe
expression. InsetPen
Expression Variable qui représente un objet LineFormat .
Valeur renvoyée
MsoTriState
Remarques
Une erreur se produit si vous tentez de définir cette propriété a la valeur msoTrue pour n'importe quel forme automatique de Microsoft Office qui ne prend pas en charge le stylo d'incrustation.
La valeur de la propriété InsetPen pour les tables est toujours msoTrue. Essayez de définir la propriété sur n'importe quel autre valeur n'entraîne une erreur.
La valeur de la propriété InsetPen peut être une des constantes MsoTriState déclarées dans la bibliothèque de type Microsoft Office et affichées dans le tableau suivant.
| Constante | Description |
|---|---|
| msoFaux | Les lignes sont dessinées directement sur les contours de la forme spécifiée. |
| msoTriEtatMélangé | Valeur de retour indiquant une combinaison de msoTrue et msoFalse pour la plage de formes spécifiée. |
| msoTriStateToggle | Valeur définie qui bascule entre msoTrue et msoFalse. |
| msoVrai | Les lignes sont dessinées à l'intérieur des contours de la forme spécifiée. |
Exemple
L’exemple suivant ajoute deux rectangles sur la page un de la composition active, le premier avec les lignes dessinées à l’intérieur des contours et le deuxième avec les lignes dessinées sur les contours.
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
Assistance et commentaires
Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.