Contenu d'un groupe

[PPz78]

Je cherche à analyser le contenu d'un groupe.
Que faut-il faire pour récupérer les noms des differentes shapes qui composent le groupe?

Merci de votre aide
PPz

[Philippe JOCHMANS]

Bonjour et bienvenue sur le forum Office de DVP.

Ouvres un module dans l'éditeur VBE et colle le code suivant (code testé sous PPT 2007)

Public Sub RecupGroupe()
    ' ====== déclaration des variables =====
    Dim objShp As Shape
    Dim i As Integer
    Dim strDetailGroupe As String
    ' ====== on boucle sur les objets de la première diapositive ====
    For Each objShp In ActivePresentation.Slides(1).Shapes
        On Error Resume Next
        strDetailGroupe = "Nom du Groupe : " & objShp.Name & vbCrLf
        For i = 1 To objShp.GroupItems.Count
            strDetailGroupe = strDetailGroupe & vbCrLf & objShp.GroupItems(i).Name
        Next i
        MsgBox strDetailGroupe
        strDetailGroupe = ""
    Next objShp
End Sub
 

Ensuite, mets le curseur à l'intérieur de celui-ci et appuie sur la touche F5. Une boite de dialogue va parcourir les groupes et t'indiquer les éléments dans ce groupe.

Principe :
On parcourt les objets de la slide 1 (à toi d'adapter en fonction de la slide que tu veux tester).
Pour chaque groupe on récupère le nombre d'objets du groupe pour effectuer une boucle qui va nous donner tous les éléments du groupe.

Starec

[PPz78]

Merci de cette réponse aussi rapide, cela répond à mon besoin.

A+

PPz