Bonjour,
J'ai essayé de modifier le code de ma macro mais je dois dire que je
m'embrouille un peu.
Donc voilà le code la macro FullOn (faite avec l'enregistreur de macro),
sub FullOn
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 = "FullScreen"
args1(0).Value = true
dispatcher.executeDispatch(document, ".uno:FullScreen", "", 0, args1())
end sub
Merci d'avance si quelqu'un peut y jeter un coup d'oeil
Arnaud POUSSIER
Alain Nowak a écrit :
>>>Bonjour,
>>>Ta macro faite avec l'enregistreur travaille certainement sur
>>>'ThisComponent', et là tu charge ton >>>formulaire par un
>>>loadComponentFromURL. Donc il faut modifier FullOn, soit adapter le code de
>>>>>>l'enregistreur pour travailler sur ton document (mondoc), soit la
>>>réécrire sans l'enregistreur.
Arnaud POUSSIER a écrit :
> Christine a écrit:
>
>> Bonjour,
>> J'ignore comment est faite ta macro de plein écran, mais tu récupères
>> ton
>> formulaire par:
>
>> monDoc = lesForm.loadComponentFromURL(monForm.Name, "", 0, optFichier())
>> dans la macro d'ouverture du formulaire
>
>> et tu appliques ta macro plein écran sur monDoc
>
>> Christine
>
> Bonjour et merci de d'être penché sur mon probléme.
>
> J'ai refait la macro comme ceci:
>
> Sub OuvrirFormulaire()
> dim optFichier(2) as new com.sun.star.beans.PropertyValue
>
> monDoc = thisComponent
> lesForm = monDoc.Parent.FormDocuments
> monForm = lesForm.getByName("NomFormulaire")
>
> optFichier(0).Name = "ActiveConnection"
> optFichier(0).Value = monDoc.Parent.DataSource.getConnection("","")
> optFichier(1).Name = "OpenMode"
> optFichier(1).Value = "open"
>
> lesForm.loadComponentFromURL(monForm.Name, "", 0, optFichier())
> monDoc = lesForm.loadComponentFromURL(monForm.Name, "", 0, optFichier()
>
> Call FullOn 'nom de la macro plein écran
>
> End Sub
>
> Mais apparement cela ne marche pas au niveau de l'appel de la macro
>
> Si quelqu'un à une idée je suis preneur
>
> Bonne journée à tous
>
> Arnaud POUSSIER
>
>
>
>
> ---------------------------------------------------------------------
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>
>
--
Alain Nowak - StarXpert
6, rue Eugène Varlin - 75010 Paris
Tel : 08 77 67 59 71 / 06 07 95 61 99
http://www.starxpert.fr
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
