Bonjour,

Je travaille actuellement sur un projet dans lequel j'utilise des macro pour créer des configurations de trait différentes. Voici mon code pour créer un trait rouge épaisseur 2 sans transparence.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
 
ActiveSheet.Shapes.AddLine(15309.75, 6#, 15351.75, 6#).Select
    Selection.ShapeRange.Fill.Visible = msoFalse
    Selection.ShapeRange.Line.ForeColor.RGB = RGB(204, 0, 0)
    Selection.ShapeRange.Line.Transparency = 0
    Selection.ShapeRange.Line.Visible = msoTrue
    Selection.ShapeRange.Line.Weight = 2
    Selection.ShapeRange.Line.DashStyle = msoLineSolid 'Trait plein
    Selection.ShapeRange.Fill.Visible = msoFalse
    Selection.ShapeRange.SetShapesDefaultProperties
    Selection.ShapeRange.Line.Visible = msoTrue
Je voudrais créer un trait double mais je ne trouve pas le code qui me permettrait de le réaliser. Quelqu'un à peut être une idée?

Merci par avance.