Bonjour :-) Je recherche des informations ou exemple pour créer et supprimer par programmation un bouton de control et pouvoir gerer sa taille et sa position

J'ai trouver un exemple pour la position chez Andrew . Mais il faut charger une librairie pour que cela marche Il y a peut être plus simple Jluc

Sub SeeThingProp Dim oForm, oControl, iNumControls%, i% Dim v() 'Par défaut, les contrôles se trouvent ici oForm = ThisComponent.Drawpage.Forms.getByName("Standard") 'oControl = oForm.getByName("MyPushButton") oControl = oForm.getByName("CheckBox") Dim vShape Dim vPosition, vSize Dim s$, vv vShape = GetControlShape(ThisComponent, "CheckBox") 'plante sur cette ligne

vPosition = vShape.getPosition() vSize = vShape.getSize() ' RunSimpleObjectBrowser(vSize) s = s & "Position = (" & vPosition.X & ", " & vPosition.Y & ")" & CHR$(10) s = s & "Height = " & vSize.Height & " Width = " & vSize.Width & CHR$(10) MsgBox s End Sub