Maurice Starck a écrit :
Je suis aussi intéressé par cette macro.
Maurice
La voici, elle était déjà dans le mail précédent mais je la remet ici,
il suffit de créer un nouveau module et de copier ce texte dedans :
sub Affichage
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 ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "FullScreen"
args2(0).Value = True
dispatcher.executeDispatch(document, ".uno:FullScreen", "", 0, args2())
rem ----------------------------------------------------------------------
dim args3(0) as new com.sun.star.beans.PropertyValue
args3(0).Name = "ViewRowColumnHeaders"
args3(0).Value = false
dispatcher.executeDispatch(document, ".uno:ViewRowColumnHeaders", "", 0,
args3())
end sub
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
