[EMAIL PROTECTED] schrieb:
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]
Ciao, non so come ti chiami. Capisco il problema perché a suo tempo sono
passato anch'io da VB al Basic Oo...
allora ti do alcune indicazioni semplici semplici, poi magari ti
servirebbe qualche tutorial che se ho la tua e-mail posso mandarti...
poi forse qualche più esperto di me ti aiuta anche nei dettagli.
primo
in Oo Basic devi fare riferimento ai documenti così
oDocument = ThisComponent
o così
oDesktop = createUnoService("com.sun.star.frame.Desktop")
oDocument = oDesktop.CurrentComponent
e hai il tuo documento nella variabile oggetto oDocument (non chiedermi
di disquisire sulla differenza tra uno e l'altro perché l'ultima volta
che ci ho provato ho praticamente capito solo che non avevo capito niente!)
se la vui dicharare é così:
dim (oppure public) oDocument as Object
poi nel caso di calc per fare riferimento ai singoli fogli:
oSheet=oDocument.Sheets.getByName("MioNomeTabella")
c'é anche il metodo getByIndex...
oppure (che trovo più sbrigativo) se hai definito un nome per il tuo
range di celle dove c'é il tabellone della tombola (per esempio
"MioTabellone") ci fai riferimento così:
oTabTombola = oDocument
.NamedRanges.getByName("MioTabellone").getReferredCells
poi ti riferisci alle singole celle così:
oCella = oTabTombola .getCellByPositions(LongColonna,LongRiga)
per i colori credo che siano (non li ho mai usati peró suppongo...)
oCella.CellBackColor = long
oCella.CharColor = long
in ogni caso se vuoi smanettare puoi sempre vedere tutte le proprietà
degli oggetti nella finestra di controllo (come in VB) e per vedere i
metodi puoi usare runtime l'istruzione:
print oMioOggetto.dbg_methods
che ti fa apparire una finestra con tutti i metodi disponibili
non so se per ora ti é sufficiente... mi rendo conto che ti manca ancora
il sistema per fare riferimento alla cella selezionata, ma se ti serve
ne riparliamo...c'é anche il sistema di assegnare un evento alla cella
ecc. ma adesso mi é scaduto il tempo disponibile.
ciao
buon lavoro
Antonello
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
