Ottimizzare macro appertura formulario a tutto schermo

[congiu.andr]

Buon giorno,
La seguente macro generale viene chiamata durante il caricamento del formulario

Codice: Seleziona tutto

Sub ATuttoSchermo(Event As Object)
Dim oFrame As Object
Dim oDispatchHelper
oFrame=Event.Source.Parent.Parent.CurrentController.Frame
oDispatchHelper=CreateUnoService("com.sun.star.frame.DispatchHelper")
oDispatchHelper.ExecuteDispatch(oFrame,".uno:FullScreen","",0,Array())
End Sub

La macro mi toglie i menu e ingrandisce in formulario a tutto schermo.

E' possibile modificarla in modo tale che adatti automaticamente le dimensioni del formulario allo schermo?

Questa mia esigenza è dettata dal fatto che il db verrà usato su pc con monitor differenti.

In rete ho travato degli esempi ma non sono riuscito a farli funzionare.

Grazie

andrea

[unlucky83]

ciao, se hai trovato degli esempi, allega i link così vediamo come far funzionare il tutto.
Cambierei il titolo della discussione in "Apertura formulario a tutto schermo con macro", quell'ottimizzare è un pò fuorviante