[Résolu] [Calc] Affichage formulaire

[Michel JANZEF]

Bonsoir
Dans un classeur Calc OOo 2.0 comportant plusieurs feuilles, j'ai créé un formulaire sur la feuille1.
Existe-t-il un moyen de faire en sorte que l'affichage de ce formulaire s'adapte automatiquement à l'écran en fonction de la taille de celui-ci et de sa résolution.
En effet, ce classeur est destiné à être mis à la disposition de plusieurs utilisateurs ne disposant pas tous du même type d'écran.
Merci

[MichelXld]

bonsoir

j'espere que cet exemple pourra t'aider

Code : Tout sélectionner

Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long,ByVal nIndex As Long) As Long

Private Const Largeur As Long = 8
Private Const Hauteur As Long = 10

Global oDialog1


Sub affichageBoiteDialogue_adapterTailleEcran
Dim Hdc As Long , H As Long , V As Long

Hdc = GetDC(0)

DialogLibraries.LoadLibrary( "Standard" )
oDialog1 = CreateUnoDialog( DialogLibraries.Standard.Dialog1 )

H = GetDeviceCaps(Hdc, Largeur)
V = GetDeviceCaps(Hdc, Hauteur)-50
iXPos = 0 
iYPos = 0 

oDialog1.setPosSize(iXPos, iYPos, H, V, com.sun.star.awt.PosSize.POSSIZE)

oDialog1.Execute()
End Sub

bonne soiree
michel

[Michel JANZEF]

Excusez moi pour le retard. Je n'ai pas eu le temps de regarder.
Ca marche.
Merci

[noosh]

Bonjour,
tres intéressante cette idée, mais étant néophite comment dois je appliquer cette macro et ou
merci A+
noosh