Discussion :

[Cyf_17]

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 !

[jurassic pork]

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 :

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

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 :



Ami calmant, J.P

[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, …

[jurassic pork]

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





Ami calmant, J.P

[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!

[Marc-L]

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