Trouvé sur le net, vous connaissez ça? On dirait une macro qui démarre
l'écoute interface et une autre qui la stoppe.
Il y a aussi cet objet qui s'appelle Query Interface, qui semble ne plus
être d'actualité, pourtant c'est bien ce que je veux, questionner
l'interface pour savoir quelle forme je dessine...
Global vSelChangeListener 'Must be global
Global vSelChangeBroadCast
'Run this macro to start event intercepting
Sub StartListeningToSelChangeEvents
Dim sPrefix$
Dim sService$
sPrefix = "sel_change_"
sService = "com.sun.star.view.XSelectionChangeListener"
REM to register for a selection change, you must register with the
REM current controller
vSelChangeBroadCast = ThisComponent.getCurrentController
'Create a listener to intercept the selection change events
vSelChangeListener = CreateUnoListener(sPrefix, sService)
'Register the listener to the document controller
vSelChangeBroadCast.addSelectionChangeListener(vSelChangeListener)
End Sub
Sub StopListeningToSelChangeEvents
' removes the listener
vSelChangeBroadCast.removeSelectionChangeListener(vSelChangeListener)
End Sub
Voici le lien :
http://book.opensourceproject.org.cn/officeeditor/office/openmacros/opensource/4374final/lib0087.html
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
