Gruppierte Zeilen per Basic schließen

[bma2000]

Hallo!

Ich suche eine Möglichkeit per oSheet.group.. gruppierte Zeilen (F12) per Makro zu schließen. Am besten gleich nach dem Gruppieren sollte die Gruppe geschlossen werden.

Wenn ich die Funktion aufzeichnen lasse wird nur das Gruppieren aufgezeichnet, das schließen aber nicht.

Hat jemand eine Lösung?

Danke im Voraus.
Bernhard

[bma2000]

Ich schieb hier mal einen älteren Beitrag von mir, vielleicht hat jemand eine Idee.

Ich erstelle eine Gruppe von Zeilen (wie von Hand per F12-Taste) mit folgendem Code:

Code: Alles auswählen

Dim oRange as Object

oRange = Sheet.getCellRangeByName("A5:A8")
Sheet.group(oRange.getRangeAddress(), com.sun.star.table.TableOrientation.ROWS) 

Und will die gruppierten Zeilen schließen, so als ob ich mit der Maus auf das - der Zeile drücke.

Nochmal danke!
Bernhard

[Karolus]

Hallo

Code: Alles auswählen

orange.rows().isvisible = False

oder falls du den Status hin und her schalten willst:

Code: Alles auswählen

orange.rows().isvisible = not orange.rows().isvisible

Gruß Karo