Macro excel vers openoffice

salut merci de ta réponse

mais je ne m'en sort pas et pourtant il n'y a rien de compliqué dans ce que je veux faire
j'ai cherché mais aucun cas similaire au mien
une précision : les macros je les exécutes en enregistrement, je ne sais pas les écrire
je ne comprends pas grand chose à ce qu'il y a d'écrit ci dessous (j'ai des lacunes)

SCRIPT
REM ***** BASIC *****


sub Main
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
rem dispatcher.executeDispatch(document, ".uno:BringToFront", "", 0, Array())


end sub


sub Main2
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
rem dispatcher.executeDispatch(document, ".uno:SendToBack", "", 0, Array())


end sub

ce que je voudrais et que j'ai énormément de mal à faire on peut meme dire que je n'arrive pas à faire

J'ai 2 images : je clic sur le bouton1 la macro fait passé l'image 1 devant
je clic sur le bouton 2 l'image 1 passe derrière
(petit confort esthétique les image se déselectionne)

merci pour ton aide et le temps que tu m'accordes
Thierry