Bonjour,
Pinsuto a écrit :
Je suis particulièrement intéressé par ce fil de discussion et d'avance
merci aux contributeurs.
Pour ma part, je cherchais à lancer une application CALC en faisant
disparaître la barre de statut, les barres de menu.
Après lancement il ne devait rester que la barre de menus et le cadre
Windows.
Avec les méthodes proposées, je rencontre les problèmes suivants.
-- Mon fichier Calc effectue des calculs à l'ouverture. Du coup, la
barre de statut s'agite. Au final, après lancement de la macro, il reste
une barre grise vide qui gelée.
Si tu le peux, place ton fichier ici http://www.cijoint.fr/
-- Si je transmets ce fichier à d'autres utilisateurs, il faut que
j'utilise une macro qui rétablit la configuration initiale du poste sur
lequel est utilisé mon fichier.
Existe-t-il donc un moyen pour neutraliser la barre de statut, fermer
les barres d'icône au lancement de mon fichier Calc.
Voir exemple ci-après.
Puis à sa
fermeture, rétablir la configuration telle qu'elle était sur le poste ?
En assignant la macro aux évènements Activation / Desactivation du
document, je pense que tu résoudras ton problème.
Voici un début :
Sub BarOnOff
'### Documentation ###
'http://api.openoffice.org/docs/common/ref/com/sun/star/frame/XLayoutManager.html
'http://wiki.services.openoffice.org/wiki/Framework
Dim oLayout as object
Dim sToolBar as String
Dim sStatusBar as String
Dim sMenuBar as String
sToolbar = "private:resource/toolbar/standardbar"
sStatusBar = "private:resource/statusbar/statusbar"
sMenuBar = "private:resource/menubar/menubar"
oLayout = ThisComponent.CurrentController.Frame.LayoutManager
If oLayout.isElementVisible( sMenuBar ) Then
oLayout.hideElement( sMenuBar )
Else
oLayout.showElement( sMenuBar )
End If
End Sub
Francois
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
