Discussion :

[brigneau]

bonjour

mon pb est de rendre invisible 1 bouton dans une feuille [calc].

dans une feuille "ACTION", rendre invisible "Button 1", c'est
en VBA : Sheets("ACTION").Shapes("Button 1").Visible = Falsej'ai trouvé une solution palliative en déplaçant le bouton, guère satisfaisante,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
oDoc = thisComponent 
lesFeuilles= oDoc.Sheets
maFeuille = lesFeuilles.getByName("ACTION")
maPage = maFeuille.DrawPage
bton_parametre= maPage(2) ' bton_parametre est le nom du bouton
positionXY= bton_parametre.Position
if positionXY.X= 20786  then
    positionXY.X= 20786 * 4 
    bton_parametre.Position= positionXY
end If

merci d'avance pour l'invisibilité du bouton

[Bidouille]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

bton_parametre.setVisible (false) ' ou true

[brigneau]

merci pour la reponse, mais ça ne marche pas

la propriété n'est pas acceptée au niveau objet bouton

[Bidouille]

C'est que ce n'est pas un bouton. Regarde du côté de XRay :
http://www.forum-openoffice.org/forum/ftopic3234.html

[brigneau]

dans [calc], à une feuille, est attaché une page. un objet est sur Drawpage, et sur une couche, la couche 3 nommé "controls". les couches sont au nombre de 5, de 0 à 4.
il faut attacher l'objet sur la couche 4 "hidden", ce qui rend l'objet invisible

ex: permet de passer le bouton de couche 0 à 4 en récupérant le nom de la couche
soit une feuile "ACTION" avec un bouton.

Sub test
monDocument = thisComponent
lesFeuilles = monDocument.Sheets
maFeuille = lesFeuilles.getByName("ACTION")
maPage = maFeuille.DrawPage
bton1= mapage(0)
for x= 0 to 4
bton1.layerId= x
nom= bton1.layerName
msgbox(nom & " " & bton1.layerId)
next
end Sub