épaisseur de trait vba

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:

Code:

---

1 2 3 4 5

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és du segment?

Merci d'avance pour votre aide!:ccool:

Bonjour

Je pense que c'est cela qu'il te faut :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Dim myDocument As Worksheet Set myDocument = Worksheets(1) With myDocument.Shapes.AddLine(10, 10, 250, 250).Line .DashStyle = msoLineDashDotDot .ForeColor.RGB = RGB(50, 0, 128) ' épaisseur de la ligne .Weight = 25 ' début de ligne .BeginArrowheadStyle = msoArrowheadOval ' fin de ligne .EndArrowheadStyle = msoArrowheadOval End With

---

Il est important de bien comprendre que le forum ne peut donner toutes les informations.

Lorsque tu es dans ton code, l'intellisense te permet d'avoir les propriétés et méthodes d'un objet (Line dans ton cas), avec l'aide et quelques connaissances en Anglais on arrive à trouver ce que l'on souhaite.

Philippe

Salut
Tu devrais prendre contact avec cette personne il semble vouloir faire la même chose que toi :roll: en plus il avait la reponse a ta question 8-)
++ ;)
Qwaz

ok

je te remercie