Řá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