[VBA PP] Renvoyer le nom d'un objet

**Pikasacha** · 14/10/2006, 12h44

Bonjour,
Je voudrais savoir si il existerait une fonction qui permetrait de savoir soit l'emplacement d'un objet soit son nom, sur une diapositive, quand on clique dessus.
Je m'explique : j'ai environ une trentaine d'objets qui sont générés aléatoirement à l'aide d'un randomize lors d'un clic sur un bouton. Et j'aimerais bien déplacer ou supprimer un objet créé quand on clique sur ce dernier. Or je ne peux connaître le nom de cet objet donc de lui attribuer un fonction. La macro pour tous les objets générés est la même.

Merci d'avance si vous vous penchez sur mon problème.

**dadavyvy** · 14/10/2006, 13h02

Essaie :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub SetActionAllObject()
    Dim sl As Slide, sr As Shape
    For Each sl In ActivePresentation.Slides
        For Each sr In sl.Shapes
            With sr.ActionSettings(ppMouseClick) ' ppMouseOver si juste pointage avec la souris
                .Action = ppActionRunMacro
                .Run = "TaMacro" ' ppActionNone par défaut
                .SoundEffect.Type = ppSoundNone
                .AnimateAction = msoFalse
            End With
        Next sr
    Next sl
End Sub

Tu affectes ainsi "TaMacro" sur le clic de chaque objet.
Par contre je ne penses pas qu'avec le diaporama lancé, tu puisses supprimer un objet...

**Pikasacha** · 14/10/2006, 13h53

Ce n'est pas exactement ce que je compte faire

Je ne vois pas comment on peut donner une action à un objet dont on ne connait pas le nom. Dans ton code, dans la macro qu'il renvoit, il faudra forcément définir l'objet auquel l'action doit être effectuée. Ce que j'aimerais c'est que, lors du clic, il se passe quelque chose sur l'objet sur lequel on a cliqué.