Tracer automatiquement un trait entre deux shapes

Version imprimable

17/09/2016, 20h28
Cyf_17

Tracer automatiquement un trait entre deux shapes

Bonjour,

Lecteur régulier du forum et des fiches explicatives, je viens vers vous au sujet d'un point qui me bloque depuis plusieurs heures.

Je souhaiterais, dans l'idéal, que l'utilisateur n'ait qu'à cliquer sur deux schapes pour qu'un trait se dessine automatiquement entre celles-ci.

Dans la pratique, je ne vois pas où commencer...

Si vous pouvez m'aiguiller, où me proposer une solution de substitution!

Merci !

1 pièce(s) jointe(s)

hello,
tu peux utiliser des connecteurs (lignes) pour relier des formes entre elles.

Voici un exemple de code où je relie 5 images par des connecteurs dans une feuille excel :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Sub RelierTrombines()
    'J.P septembre 2016
    Dim conn(4) As Shape
    Dim i As Integer
    Worksheets("Trombi").Activate
    i = 1
    ' on crée un connecteur de type "en angle"
    Set conn(i) = ActiveSheet.Shapes.AddConnector(msoConnectorElbow, 1, 1, 1, 1)
    ' on relie l'image Image01 à l'image Image02 par le connecteur créé
    conn(i).ConnectorFormat.BeginConnect ActiveSheet.Shapes("Image01"), 1
    conn(i).ConnectorFormat.EndConnect ActiveSheet.Shapes("Image02"), 1
    'on colore le connecteur en rouge
    conn(i).Line.ForeColor.RGB = RGB(255, 0, 0)
    ' épaisseur de trait du connecteur
    conn(i).Line.Weight = 4
    'redessine  le connecteur
    conn(i).RerouteConnections
     i = i + 1
    Set conn(i) = ActiveSheet.Shapes.AddConnector(msoConnectorElbow, 1, 1, 1, 1)
    conn(i).ConnectorFormat.BeginConnect ActiveSheet.Shapes("Image02"), 1
    conn(i).ConnectorFormat.EndConnect ActiveSheet.Shapes("Image03"), 1
    conn(i).Line.ForeColor.RGB = RGB(255, 0, 0)
    conn(i).Line.Weight = 4
    conn(i).RerouteConnections
    i = i + 1
    Set conn(i) = ActiveSheet.Shapes.AddConnector(msoConnectorElbow, 1, 1, 1, 1)
    conn(i).ConnectorFormat.BeginConnect ActiveSheet.Shapes("Image03"), 1
    conn(i).ConnectorFormat.EndConnect ActiveSheet.Shapes("Image04"), 1
    conn(i).Line.ForeColor.RGB = RGB(255, 0, 0)
    conn(i).Line.Weight = 4
    conn(i).RerouteConnections
    i = i + 1
    Set conn(i) = ActiveSheet.Shapes.AddConnector(msoConnectorElbow, 1, 1, 1, 1)
    conn(i).ConnectorFormat.BeginConnect ActiveSheet.Shapes("Image04"), 1
    conn(i).ConnectorFormat.EndConnect ActiveSheet.Shapes("Image05"), 1
    conn(i).Line.Weight = 4
    'bleu
    conn(i).Line.ForeColor.RGB = RGB(0, 0, 255)
    conn(i).RerouteConnections
End Sub

et voici le résultat :

Pièce jointe 220547

Ami calmant, J.P

18/09/2016, 17h45
Marc-L

Salut J.P !

J'aime bien tes illustrations mais ce sont toujours des tronches de politiques !
Et vu la période de campagne venant de commencer en vue des élections présidentielles,
comme on va se les taper dans le moindre média, ce serait bien de les remplacer
par exemple par des visages souriants de belles plantes (genre belles femmes) !

_________________________________________________________________________________________________________
Je suis Paris, Nice, Bruxelles, Charlie, …
18/09/2016, 18h34
jurassic pork

1 pièce(s) jointe(s)

hello Marc,
tu préfères comme cela :

Pièce jointe 220591

:mouarf:

Ami calmant, J.P
18/09/2016, 18h40
Cyf_17

Bonjour à tous et merci pour ces réponses illustrées, tout particulièrement celle de Jurassic Pork qui m'aide grandement!

Bon dimanche!
18/09/2016, 18h40
Marc-L

C'est exotique mais bien plus charmant que les tronches que l'on va subir ces prochains mois ! :plusser: