Seite 1 von 1

Gruppierte Zeilen per Basic schließen

Verfasst: Mo, 14.09.2009 10:11
von 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

Re: Gruppierte Zeilen per Basic schließen

Verfasst: Di, 01.12.2009 13:11
von 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

Re: Gruppierte Zeilen per Basic schließen

Verfasst: Di, 01.12.2009 16:22
von 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