[gelöst] Sichtbarkeit von Checkboxen / Markierfeldern...

[Maggus]

Hallo,
leider funktioniert das so nicht:

Code: Alles auswählen

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

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

Gruß,

[turtle47]

Hi,

das Ausblenden von Steuerelementen ist schon länger nicht möglich.

Jürgen

[Maggus]

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

Gruß,