OpenOffice.info

perfekt! Danke Jürgen! :D
Der Verweis auf den Threat war die Lösung.
Mit der Vorgehensweise von eBayer klappt das einwandfrei.

Gruß,

Hi,

das [url=http://de.openoffice.info/viewtopic.php?f=18&t=25956&start=0#p110651]Ausblenden von Steuerelementen[/url] ist schon länger nicht möglich. :(

Jürgen

Sub ShowAll()
  ActiveSheet = ThisComponent.CurrentController.ActiveSheet
  oForm = ActiveSheet.Drawpage.Forms.getByIndex(0)
  AllBoxes = oForm.Count

  For i = 0 to AllBoxes -1
    oControl = oForm.getByIndex(i)
    If oControl.ClassID = 5 Then
      oControl.isVisible = true
    End If
  Next

End Sub

Hallo,
leider funktioniert das so nicht:

[code]
Sub ShowAll()
ActiveSheet = ThisComponent.CurrentController.ActiveSheet
oForm = ActiveSheet.Drawpage.Forms.getByIndex(0)
AllBoxes = oForm.Count

For i = 0 to AllBoxes -1
oControl = oForm.getByIndex(i)
If oControl.ClassID = 5 Then
oControl.isVisible = true
End If
Next

End Sub
[/code]

Xray zeigt mir, dass es für oControl keine Methode/Property [b]isVisible[/b] gibt, aber gibt mir auch keine andere Möglichkeit Controls auszublenden. Wie geht es dann??

Gruß,