IBM® Lotus® Symphony™ Spreadsheets nudi vmesnik Universal Network Objects (UNO) za upravljanje samodejnega izračuna.
Z vmesnikom lahko omogočite ali onemogočite funkcijo samodejnega izračuna.
Vmesnik UNO za upravljanje samodejnega izračuna je
XCalculatable.
- S parametrom XCalculatable::enableAutomaticCalculation(boolean
bEnabled) lahko nastavite status samodejnega izračuna. Nastavite vrednost parametra bEnabled na True, da omogočite samodejni izračun, ali False, da ga onemogočite.
- S parametrom XCalculatable::isAutomaticCalculationEnabled() lahko pridobite trenutni status samodejnega izračuna. Če je samodejni izračun trenutno omogočen, je vrnjena vrednost True.
V nasprotnem primeru je vrnjena vrednost False.
Naslednja koda služi kot primer. Če je samodejni izračun trenutno omogočen, ga boste z izvajanjem makra onemogočili.
V nasprotnem primeru ga boste z izvajanjem makra omogočili.
Sub Main
Dim oDoc as Object
Dim enabled as Boolean
Set oDoc = StarDesktop.CurrentComponent
enabled = Not oDoc.isAutomaticCalculationEnabled
oDoc.enableAutomaticCalculation(enabled)
End Sub