OpenOffice.cz - web věnovaný kancelářským balíkům OpenOffice.org

Řádky, sloupečky

Výběr řádku, sloupečku

Dim oRow As Object
Dim oColumn As Object
' první řádek (1)
oRow = oSheet.getRows.getByIndex( 0 )
' druhý sloupeček (B)
oColumn = oSheet.getColumns.getByIndex( 1 )

Vlastnosti sloupečku

' šířka sloupčcku (v setinách mm)
oColumn.setPropertyValue("Width", 100)
' optimální šířka - Ano, Ne?
oColumn.setPropertyValue("OptimalWidth", True)
' skrytý / viditelný?
oColumn.setPropertyValue("IsVisible", False)
' zalomení stránky?
oColumn.setPropertyValue("IsStartOfNewPage", False)

Vlastnosti řádku

' výška řádku (v setinách mm)
oRow.setPropertyValue("Height", 100)
' optimální výška?
oRow.setPropertyValue("OptimalHeight", True)
' skrytý / viditelný?
oRow.setPropertyValue("IsVisible", False)
' zalomení stránky?
oRow.setPropertyValue("IsStartOfNewPage", False)

Přidáváme, odstraňujeme sloupeček

' přidej dva sloupečky počínaje sloupečkem D
oSheet.getColumns.insertByIndex( 3, 2 )
' odstraň tři sloupečky počínaje sloupečkem G
oSheet.getColumns.removeByIndex( 6, 3 )

Přidáváme, odstraňujeme řádek

' přidej dva řádky počínaje 4. řádkem
oSheet.getRows.insertByIndex( 3, 2 )
' odstraň tři řádky počínaje 7. řádkem
oSheet.getRows.removeByIndex( 6, 3 )

Buňky

Vybíráme buňku

Dim oCell As Object
' vyber A1 (první číslo sloupeček, druhé řádek)
oCell = oSheet.getCellByPosition( 0, 0 )

Nastavujeme nové hodnoty

' vkládáme text
oCell.setPropertyValue("String", "Toto je buňka A+" )
' vkládáme číslo
oCell.setPropertyValue("Value", 100)
' vkládáme vzorec
oCell.setPropertyValue("Formula", "=A2+A3")

Hodnoty můžeme číst pomocí getPropertyValue nebo přímým přístupem, tzn. sValue = oCell.Text.

Detekujeme typ obsahu buňky

Select Case oCell.Type
        Case com.sun.star.table.CellContentType.EMPTY
                ' buňka je prázdná
        Case com.sun.star.table.CellContentType.VALUE
                ' buňka obsahuje číslo
        Case com.sun.star.table.CellContentType.TEXT
                ' buňka obsahuje řetězec
        Case com.sun.star.table.CellContentType.FORMULA
                ' buňka obsahuje vzorec
End Select