Discussion :

[gaston64]

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 :

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

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!

[Invité]

Bonjour

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

Code :

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

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

[Qwazerty]

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

[gaston64]

ok

je te remercie