J'ai dessiné trois ellipses que j'ai groupé.
J'ai nommé ce groupe "mongroupe".
Comment, par macro, atteindre chacun des
éléments du groupe pour modifier leur couleur ?
Item, GroupItems ... ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
garnote
Eureka ;-)
Sub OK() Set groupe = ActiveSheet.Shapes("mongroupe") n = groupe.GroupItems.Count For i = 1 To n Randomize groupe.GroupItems(i).Fill.ForeColor.SchemeColor = 1 + Int(55 * Rnd()) Next i End Sub
Serge
Bonjour, Bonjour,
J'ai dessiné trois ellipses que j'ai groupé. J'ai nommé ce groupe "mongroupe". Comment, par macro, atteindre chacun des éléments du groupe pour modifier leur couleur ? Item, GroupItems ... ?
Merci Serge
Eureka ;-)
Sub OK()
Set groupe = ActiveSheet.Shapes("mongroupe")
n = groupe.GroupItems.Count
For i = 1 To n
Randomize
groupe.GroupItems(i).Fill.ForeColor.SchemeColor = 1 + Int(55 * Rnd())
Next i
End Sub
Serge
Bonjour, Bonjour,
J'ai dessiné trois ellipses que j'ai groupé.
J'ai nommé ce groupe "mongroupe".
Comment, par macro, atteindre chacun des
éléments du groupe pour modifier leur couleur ?
Item, GroupItems ... ?
Sub OK() Set groupe = ActiveSheet.Shapes("mongroupe") n = groupe.GroupItems.Count For i = 1 To n Randomize groupe.GroupItems(i).Fill.ForeColor.SchemeColor = 1 + Int(55 * Rnd()) Next i End Sub
Serge
Bonjour, Bonjour,
J'ai dessiné trois ellipses que j'ai groupé. J'ai nommé ce groupe "mongroupe". Comment, par macro, atteindre chacun des éléments du groupe pour modifier leur couleur ? Item, GroupItems ... ?
