[Calc] Figer les volets

Vos meilleures macros et portions de code sont publiées dans cette section.
Aucun support sur une question de programmation ici !

Modérateur: Vilains modOOs

Règles du forum
Aucune question dans cette section !
Celle-ci rassemble les meilleures macros et portions de code. Vous pouvez en revanche commenter ou argumenter le code exposé. Vous pouvez même remercier l'auteur (cela fait toujours plaisir) en indiquant par exemple dans quel cadre ou contexte vous en avez eu l'utilité.
Si vous avez à poster quelque chose, faites-le depuis la section Macros et API et demandez à un modérateur de l'y déplacer.

Figer les volets

Messagepar Patbibi » 21 Déc 2006 11: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...)

Code : Tout sélectionner   AgrandirRéduire
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
Patbibi
Fraîchement OOthentifié
 
Message(s) : 3
Inscrit le : 21 Déc 2006 10:33

Retour vers Suprême de code

Qui est en ligne ?

Utilisateur(s) parcourant ce forum : Aucun utilisateur inscrit et 2 invité(s)