O IBM®
Lotus® Symphony™ Spreadsheets fornece uma interface Universal Network
Objects (UNO) para gerir o cálculo automático.
Pode utilizar a interface para activar ou desactivar a função de cálculo automático.
A interface UNO para gestão do cálculo
automático é
XCalculatable.
-
Pode utilizar
XCalculatable::enableAutomaticCalculation(boolean
bEnabled) para definir o estado do cálculo automático. Defina o valor
do parâmetro
bEnabled como
True para activar o cálculo automático e como
False para desactivar o cálculo automático.
- Pode utilizar
XCalculatable::isAutomaticCalculationEnabled()
para obter o estado actual do cálculo automático. Se o cálculo automático
estiver activado, o valor devolvido é True.
Caso contrário, o valor devolvido é False.
O seguinte código constitui um exemplo. Se o cálculo automático
estiver activado, a execução da macro irá desactivar o cálculo automático.
Caso contrário, a execução da macro irá activar o cálculo automático.
Sub Main
Dim oDoc as Object
Dim enabled as Boolean
Set oDoc = StarDesktop.CurrentComponent
enabled = Not oDoc.isAutomaticCalculationEnabled
oDoc.enableAutomaticCalculation(enabled)
End Sub