Discussion :

[Petit Vince]

Bonjour à tous,

Je cherche à faire dessiner à excel une forme libre composé de 3 cotés droits et en partie haute d'un cintre en plein cintre.

J'utilise Shapes.buildfreeform, les coordonnées, tout vas bien, mais excel persiste à dessiner quelquechose d’extrêmement disgracieux, sans doute à cause du msoEditingType.
Je les ais un peu tous essayés (smooth, symétric, corner) mais je trouve pas de solutions.

En dessin cela donne ça :


Et le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
    With ActiveSheet.Shapes.BuildFreeform(msoEditingAuto, minX, minY)
        .AddNodes msoSegmentLine, msoEditingAuto, maxX, minY
        .AddNodes msoSegmentLine, msoEditingCorner, maxX, maxY + fleche
        .AddNodes msoSegmentCurve, msoEditingSmooth, moyX4, moyY4, _
        moyX3, moyY3, _
        moitieX, maxY
        .AddNodes msoSegmentCurve, msoEditingSmooth, moyX2, moyY2, _
        moyX1, moyY1, _
        minX, maxY + fleche
        .AddNodes msoSegmentLine, msoEditingCorner, minX, minY
        .ConvertToShape.Select
    End With
    Selection.ShapeRange.name = name

J'ai découpé le cintre en 2 arc distincts, et les 2 points de contrôles de chaque sont à 1/3x et 2/3x.

L'un s'entre vous est-il déjà tombé sur ce genre de problème?
Cordialement.