hello everyone ,
I would like to create an event handler in such a way that when i double click a shape on a slide , a messagebox is fired and give me the name of that shape.
I have created a class called cEventClass with this private sub
[VBA]
Private Sub application_WindowBeforeDoubleClick(ByVal Sel As Selection, ByVal Cancel As Boolean)
MsgBox Sel.ShapeRange.Name
End Sub
[/VBA]
and the following module to launch the event handling
[VBA]
Dim cPPTObject As New cEventClass
Sub TrapEvents()
Set cPPTObject.PPTEvent = Application
End Sub
[/VBA]
The problem i have is that it doesn't give me the name of the shape once i double click it , what sould i do?
Thank you