Contour d'un groupe de formes (shapes)

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 ?

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 ?

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:

---

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

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:

---

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 ?