Figer les volets
Publié : 21 déc. 2006 10:24
Figer les volets
Le but du jeu consiste à figer les volets et à ôter cette fonction par un bouton.
La macro place le curseur sur la cellule en dessous de la ligne et à droite de la colonne que l'on désir figer.
Puis l'action figer est appliquée, et enfin le curseur est positionné sur une cellule origine (dans le contexte de mon application...)
Le but du jeu consiste à figer les volets et à ôter cette fonction par un bouton.
La macro place le curseur sur la cellule en dessous de la ligne et à droite de la colonne que l'on désir figer.
Puis l'action figer est appliquée, et enfin le curseur est positionné sur une cellule origine (dans le contexte de mon application...)
Code : Tout sélectionner
sub figer
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 args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$I$10"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:FreezePanes", "", 0, Array())
rem ----------------------------------------------------------------------
dim args10(0) as new com.sun.star.beans.PropertyValue
args10(0).Name = "ToPoint"
args10(0).Value = "a9"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args10())
end sub