épaisseur de trait

Question

Bonjour,

je souhaite tracer un segment en vba à partir de donnée figurant sur une feuille excel.

Voici ce que j'ai trouvé dans l'aide visual basic:

Set myDocument = Worksheets(1)
With myDocument.Shapes.AddLine(10, 10, 250, 250).Line
    .DashStyle = msoLineDashDotDot
    .ForeColor.RGB = RGB(50, 0, 128)
End With

En suppriment ".DashStyle = msoLineDashDotDot" j'obtient une ligne continue ok 

Comment faire pour épaissir le trait?
Comment dessiner un rond aux extrémité du segment?

Merci d'avance pour votre aide!:ccool:

fohaf · Answer

Salut,

tu peux modifier l'épaisseur et les flèches de ton trait comme ça
With myDocument.Shapes.AddLine(10, 10, 250, 250).Line
    .DashStyle = msoLineDashDotDot
    .ForeColor.RGB = RGB(50, 0, 128)
    ' Epaisseur du trait
    .Weight = 2
    ' Format des début et fin de trait
    .BeginArrowheadLength = msoArrowheadShort
    .BeginArrowheadStyle = msoArrowheadOval
    .BeginArrowheadWidth = msoArrowheadNarrow
    .EndArrowheadLength = msoArrowheadShort
    .EndArrowheadStyle = msoArrowheadOval
    .EndArrowheadWidth = msoArrowheadNarrow
End With
Tu trouveras plus d'infos sur
MSDN

cs_Jack · Answer

Salut
Il te suffit d'enregistrer une macro pendant que tu le fais à la main, tu auras le code tout fait.

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

titeuf136 · Answer

MERCI pour vos réponses !

épaisseur de trait

3 réponses

Votre réponse

Discussions similaires