Bonjour Philippe
Je suis à la recherche d'une méthode pouvant configurer les marges de
la
page d'un classeur.
L'exemple ci dessous est issu du "Basic Programmer's Guide
StarOffice(tm) 7 Office Suite"
Pour definir les marges d'un classeur
Sub DefinirMarges
Dim Doc As Object
Dim StleFme As Object
Dim PgeStle As Object
Dim DefPage As Object
Doc = ThisComponent
StleFme = Doc.StyleFamilies
PgeStle = StleFme.getByName("PageStyles")
DefPage = PgeStle.getByName("Default")
1000=1 centimetre
DefPage.LeftMargin = 1000
DefPage.RightMargin = 1000
DefPage.TopMargin=2000
DefPage.BottomMargin=2000
End Sub
Autre problème:
Démarrer une présentation en mode présentation (sans avoir à cliquer
sur
l'icône) pour pouvoir enchaîner les présentations.
Pour la deuxieme partie de la question , je ne suis pas sur d'avoir
bien compris ,mais l'exemple joint permet d'ouvrir une presentation en
plein ecran
Sub OuvrirPresentationPleinEcran
Dim Fichier As String
Dim oDoc As Object
Fichier = "C:\Documents and Settings\michel\test.sxi"
oDoc = StarDesktop.LoadComponentFromURL( ConvertToURL(Fichier),
"_blank", 0, Array() )
odoc.presentation.start
End Sub
Bonne soiree
michel
3 messages in org.openoffice.fr.prog[prog] RE : [prog] Configurer les mar...
