Propriété LineFormat.InsetPen (Excel)
Renvoie ou définit une valeur indiquant si les lignes sont dessinées à l’intérieur des limites de la forme spécifiée. Lecture-écriture.
Syntaxe
expression. InsetPen
Expression Variable qui représente un objet LineFormat .
Valeur renvoyée
Remarques
msoTrue (-1) si des lignes sont dessinées à l’intérieur des limites de la forme; sinon, msoFalse (0).
Exemple
L’exemple de code suivant ajoute deux rectangles à la feuille de calcul active, le premier avec ses lignes dessinées à l’intérieur de ses limites et le second avec ses lignes dessinées sur ses limites.
Dim shpNew As Shape
With ActiveSheet.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.