Selon Eric Belhomme <{gmane}+no/[EMAIL PROTECTED]>:
> bonjour,
>
> Une fonctionnalité très utilisée par mes utilisateurs avec Ms Excel etait
> le bouton "aperçu des sauts de pages" de la barre d'outils "affichage" : un
> clic sur se bouton basculait en mode "page", un autre clic rebasculait en
> mode "normal".
>
> Est-ce possible, ou est-ce que je perds mon temps là-dessus ?
>
> --
> Rico
>
Mea culpa, j'ai lu trop vite tout à l'heure.
Voici une petite macro qui le fait mais je ne suis pas parvenu à la lier à un
bouton :
REM ***** BASIC *****
global target as boolean
sub main
'change la macro à lancer
if target = false then
target = true
modeNormal
else
target = false
modeSautPage
endif
end sub
sub modeNormal
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 ***** FIN DU BASIC *****
C'est vite vite fait, il doit y avoir moyen de faire un truc plus fini ...
A+
Serge
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
