Tracer une forme libre avec des segments droits

Signaler
Messages postés
28
Date d'inscription
lundi 2 février 2009
Statut
Membre
Dernière intervention
16 septembre 2013
-
Bonjour,

je souhaite tracer une forme libre quelconque mais qui n'a que des segments droits et non pas courbes.
mon code est le suivant :
Sub forme_libre()
    With ActiveWindow.Selection.SlideRange.Shapes.BuildFreeform(msoEditingline, 277.25, 168.25)
        .AddNodes msoSegmentLine, msoEditingAuto, 373.62, 168.25
        .AddNodes msoSegmentLine, msoEditingAuto, 373.62, 247.62
        .AddNodes msoSegmentLine, msoEditingAuto, 271.5, 241.88
        .AddNodes msoSegmentLine, msoEditingAuto, 277.25, 168.25
        .ConvertToShape.Select
    End With
End Sub


le problème que j'ai c'est que dès que je bouge le point en bas à gauche, le segment passe en "segment courbe".

Savez-vous comment modifier ça ?

Merci d'avance pour votre aide
Cédric