Discussion :

[argonath]

Bonjour, dans un classeur j'utilise une carte d'une région, composée de shapes représentant les départements. En groupant les formes je cherche un moyen en script d'épaissir ou modifier la couleur non pas tous les contours, mais uniquement les bords du groupe, et donc de la région. Est ce que c'est possible ? Peut être via une copie/fusion mise en arrière plan derrière les formes d'origine ?

[Jean-Philippe André]

Bonjour,

je m'interroge sur le caractère VBA de la question. Tu sais que cette mise en forme de contour et faisable et tu veux le faire en VBA, ou bien tu aimerais savoir si cette mise en forme de contour est faisable ?

[Kimy_Ire]

Bonjour argonath et jpcheck,

Voici les différentes méthodes qui te permettront de réaliser ce que tu souhaites, d'après ma compréhension du problème :

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
Sub shpes()
 
With Worksheets("Feuil6")
 
For Each shps In .Shapes
    MsgBox shps.Name
    'Couleur de l'intérieur
    shps.Fill.ForeColor.RGB = RGB(255, 255, 255)
    'Couleur du contour
    shps.Line.ForeColor.RGB = RGB(0, 0, 0)
    'Taille du contour
    shps.Line.Weight = 5
 
    'Si le nom de la shape vaut "Ellipse 1" alors on met au premier plan
    If shps.Name = "Ellipse 1" Then
        shps.ZOrder msoBringToFront
    End If
Next shps
 
End With
 
End Sub

Pour moi, tu dois passer par les différents noms de tes shapes que tu as du nommer comme tes régions, et selon les cas de figure appliquer des couleurs différentes et/ou mettre au premier plan ces dernières.

Je ne sais pas si ça peut aider.

Cordialement,
Kimy

[WuKoDLaK]

Bonjour
je remonte ce sujet car je suis dans le même cas via Excel.
Je groupe des formes pour en ressortir une seule pour des communes. Hors, lorsque je tente de changer bordure taille/couleurs l'ensemble est modifiée et pas seulement la bordure extérieur de la forme...
Je ne trouve pas d'exemple ayant réalisé ce genre de choses.
Si sur PowerPoint via Par exemple :

Code :

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

1
2
3
4
5
6
Dim oshpR As ShapeRange
With ActivePresentation.Slides(1)
Set oshpR = .Shapes.Range(Array("Rectangle 3", "Rectangle 5"))
End With
oshpR.Select
CommandBars.ExecuteMso ("ShapesUnion")

Sur Excel j'utilise le .group qui fonctionne bien mais mon traitement voulu derrière ne colle pas. Le .executeMso semble dédié PowerPoint
Cela évoque t il quelques chose à quelqu'un ?
Pour Excel ?