page7
LibOBasic-3-Calc-Flat-A4-pt-br-v111..ods
7 de 8
Célula ou alcance?
If MyObj.supportsService(service_name) Then …
Célula ?
"com.sun.star.sheet.SheetCell"
①
Intervalo simples ?
"com.sun.star.sheet.SheetCellRange"
④
Mulplito Intervalo ?
"com.sun.star.sheet.SheetCellRanges"
➄
Linhas / Colunas (rows/columns)
Linhas e colunas são propriedades de objetos Planilha e intervalo.
Geral
TheRows = MyRange.Rows
TheCols = MyRange.Columns
Contando
NbL = MyRange.Rows.Count
NbC = MyRange.Columns.Count
TheRow = MyRange.Rows(index)
TheCol = MyRange.Columns(index)
Row/Columns properties
Aplica-se a linha ou linhas (resp. Coluna ou colunas).
Visível / Oculto (Boolean)
IsVisible = True
Largura ótima (Boolean)
OptimalWidth = True
Inserir / excluir - linhas / colunas
Inserir
RorC.insertByIndex(FirstPos, LastPos)
Excluir
RorC.removeByIndex(FirstPos, LastPos)
Congelar linhas / colunas
Existe um?
Freeze = MyController.hasFrozenPanes
Congelar
MyController.freezeAtPosition(1, 2)
Excluir
MyController.freezeAtPosition(0, 0)
Chame uma função Calc
Uso
Dim FCalc As Object
Dim Result As (context dependent)
Dim Params As (context dependent)
Dim FunctionName As String
FCalc = CreateUnoService("com.sun.star.sheet.FunctionAccess")
Results = FCalc.callFunction(FunctionName, Params)
Para conhecer o tipo de objeto, teste
supportsService()
com
service_name
service_name
abaixo (boolean) no objeto (intervalo ou célula):
Replace service_name by :
Sempre teste uma célula antes de um intervalo único, porque uma célula também
é um intervalo único!
Linhas
(TheRows object)
Colunas
(TheCols object)
Uma linha
(TheRow object (base 0)
Uma coluna
(TheCol object (base 0)
Defina o object
RorC
, e
FirstPos
e
LastPos
as posições do início e fim do conjunto
de linhas (ou colunas) para adicionar/excluir (Long).
Use o objeto Controller:
MyController = ThisComponent.CurrentColtroller
Use serviço
"com.sun.star.sheet.FunctionAccess"