Voici l'aide :
expression.AddLine(BeginX, BeginY, EndX, EndY)
expression Obligatoire. Expression qui renvoie un objet Shapes.
BeginX, BeginY Argument de type Single obligatoire. Position (en points) du début de la ligne par rapport au coin supérieur gauche du document.
EndX, EndY Argument de type Single obligatoire. Position (en points) de la fin de la ligne par rapport au coin supérieur gauche du document.
Voici une macro enregistré sous excel pour exemple : ActiveSheet.Shapes.AddLine(180#, 63.75, 540#, 63.75).Select ActiveSheet.Shapes.AddLine(180#, 114#, 180#, 318#).Select Selection.ShapeRange.Flip msoFlipVertical
Voila
P.S.: coche "m'envoyer un mail lorsqu'il y a une réponse", ou si tu ne veu pas enregistrer ton mail, revien sur le forum pour consulter les réponses, même si ce n'est que pour un message
|