Bonsoir,
Merci Thibault pour cette aide précieuse.
J'ai intégré la macro dans Dmaths. Les utilisateurs pourrons accéder aux
fonctionnalités de Dmaths depuis Impress ...
Thibault Vataire a écrit :
> Bonjour,
>
> Le plus simple est d'utiliser le service com.sun.star.frame.DispatchHelper
> pour executer la commande du menu Edition>Objet>Editer :
>
Où peut-on trouver une documentation pour ce service ?
> sub insereTexte
>
> dim doc as object
> dim obj as object
> dim aPos as variant
> dim aSize as variant
> dim controller as object
> dim dispatcher as object
> dim args1(0) as new com.sun.star.beans.PropertyValue
>
> doc = thisComponent
> obj = doc.CreateInstance("com.sun.star.drawing.OLE2Shape")
> ...
> controller = doc.currentController
> if (not isNull(controller)) then
> if (controller.select(obj)) then
> dispatcher =
> createUnoService("com.sun.star.frame.DispatchHelper")
> args1(0).Name = "VerbID"
> args1(0).Value = 65535
> dispatcher.executeDispatch(controller.frame,
> ".uno:ObjectMenue", "", 0, args1())
> end if
> end if
>
> end sub
>
>
--
Didier Dorange-Pattoret
http://www.dmaths.org
http://sesamath.net
Soutenez le projet Dmaths : rejoignez le club ou faites adhérer votre
établissement !
http://www.dmaths.org/documentation/doku.php?id=presentation:club
---------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
