Discussion :

[benoxy]

Je code en VBA avec PP 2003 SP3.
J'ai vu un tuto sur le renomage de shape. Par contre comment récupérer le nom du shape suite à un clique de la souris. Dans la classe des évènements j'ai essayé de trouver l'objet me permettant d'avoir une rotine de type :

Code :

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

oClikShp_Click(ByRef shp As Shapes)

ou

Code :

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

oClikShp_Click(ByRef shp As Pictures)

mais je n'ai pas trouvé.
Pouvez-vous m'orienter ?

[Invité]

Bonjour

Est-ce que ce qu'il y a dans la FAQ peut t'aider ? : http://powerpoint.developpez.com/faq...#nomformclique


Edit :

Il n'y a pas d'évènement sur les shapes comme sur les contrôles Activz X tel que les boutons de commande

Philippe

[benoxy]

Super ca marche.

Code :

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

1
2
3
4
 
Public Sub NameForm(shpSelect As Shape)
    MsgBox shpSelect.Name
End Sub

Pour Info la mise en oeuvre est simple :

Créez un module ( exemple : ModMain )

Copier le code dans ce module

cliquer droit sur un shape

Sélectionner Paramétres des actions

Sélectionner Exécuter la macro

Sélectionner la macro NameForm

Valider

Positionnez vous sur le shape de la présentation

Cliquez !!!

Surprise vous avez un beau message avec le nom du shape

Merci beaucoup.