[dev-it] Problema generazione macro OOo.Calc

Thu, 23 Nov 2006 08:24:30 -0800 

Premetto che non conosco molto bene il SB di OOo 2.0.4 che utilizzo sul 
sistema Ubuntu, ho sempre e solo creato macro con VBA.
Il problema 
riguarda un foglio di Calc che dovrebbe fare da cartellone 
videoproiettato per una tombola per bambini di paese. Questo foglio 
dovrebbe evidenziare le caselle selezionate lampeggaindo fino alla 
nuova selezione, in VBA l'avevo risolto così:

Public OrigBkgCol As 
Long, OrigTxtCol As Long
Public OldCell As Range

Sub InitFlash()
    
    Set OldCell = ActiveCell
    OrigBkgCol = ActiveCell.Interior.
ColorIndex
    OrigTxtCol = ActiveCell.Font.ColorIndex
    Application.
OnTime Now + TimeValue("00:00:01"), "Flash"

End Sub

Sub Flash()

    
If ActiveCell.Interior.ColorIndex < 0 Then
        ActiveCell.Interior.
ColorIndex = 15   'colore fondo bianco
        ActiveCell.Font.
ColorIndex = 1   'colore testo nero
    Else
        ActiveCell.
Interior.ColorIndex = 2 Mod 2
        ActiveCell.Font.Color = 1
    End 
If

    Application.OnTime Now + TimeValue("00:00:01"), "Flash"

End 
Sub


Ma in Calc mi è difficile tradurre questo soprattutto perché non 
so come accede alle celle.


Come posso fare qualcosa del genere, anche 
senza lampeggiare, solo modificare il colore dello sfondo quando 
seleziono la cella.


Grazie 1000 da me  e dai miei ragazzi.....

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

Rispondere a