[dev-it] Grazie a tutti

Mon, 27 Nov 2006 04:03:09 -0800 

Cercando di non fare casini con i messaggi di risposta al mio vecchio 
thread: "Problema generazione macro OOo.Calc", ne apro uno nuovo.
Questo thread per ringraziare tutti dell'aiuto che ho ricevuto che mi 
ha consentito di scrivere la macro che gestisce i numeri estratti della 
tombola in calc.
Di seguito riporto l'intero (tre rige) codice che mi 
permette di far lampeggiare per dei secondi la casella estratta 
utilizzando la combinazione di tasti <ctrl+c>:


Option Explicit

Sub 
Flash

Dim oCell As Object
Dim I

oCell = ThisComponent.
getCurrentSelection

For I = 1 to 11 step 1
  Wait 1000
  if oCell.
CellBackColor < 0 then
    oCell.CellBackColor = RGB(0, 0, 0)
    oCell.
CharColor = RGB(255, 255, 255)
  else
    oCell.CellBackColor = -2 mod 
3
    oCell.CharColor = RGB(0, 0, 0)
  end if
Next I
End Sub

Grazie 
ancora e chiedo scusa se ho fatto pasticci con le risposte...........

---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Rispondere a