Salve a tutta la mail-list,
ho il seguente problema con la
creazione di una macro in openoffice 2.0.4 che gira su Ubuntu 6.10.
Siccome stiamo in paese organizzando un tombola che dovrebbe essere
proiettata, ho realizzato con OOo una tabella con i 90 numeri,
graficamente è venuta molto bene, il problema risiede nel fatto che non
so come associare all'evento doppio click su una cella il cambio colore
dello sfondo di questa.
Ad oggi sono solo riuscito a creare un
bottone che cambia il colore alla casella selezionata, ma il risultato
è troppo laborioso per i bambini che dovrebbero usrala.
Preferirei
usare un macro che mi faccia cambiare la formattazione della cella
quando la seleziono, il codice che ho inserito mi da parecchi errori,
eccolo (è scritto in VBA xché non conosco ancora il SB):
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 = 2 'colore fondo bianco
ActiveCell.Font.
ColorIndex = 1 'colore testo nero
Else
ActiveCell.Interior.
ColorIndex = (ActiveCell.Interior.ColorIndex + 14) Mod 2
ActiveCell.Font.Color = 1
End If
Application.OnTime Now + TimeValue
("00:00:01"), "Flash"
End Sub
Grazie a tutti
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
