Bene Mirko... hai la macro funzionante: servito di barba, capelli e
manicure... spero questo non vada a detrimento degli aspetti
didattici... :-)
Paolo Mantovani ha scritto:
errata corrige:
sostituire <> con =
A comodità dei posteri incollo qui la funzione completa con la
correzione del refuso:
Sub Trova_sostituisci_colore_sfondo
'colore da cercare e sostituire
MyCellBackColor = RGB(100,100,100)
oSheet = ThisComponent.CurrentController.ActiveSheet
oCellFormatRanges = oSheet.getCellFormatRanges
oRangeEnum = oCellFormatRanges.createEnumeration
While oRangeEnum.hasMoreElements
oRange = oRangeEnum.nextElement
If oRange.cellbackColor = MyCellBackColor Then
oRange.cellbackColor = -1 'default (transparent)
End If
Wend
End Sub
Paolo che ne dici... "submit to codesnippet" ?
Oppure un progetto più ambizioso del tipo "extended_search"
Ciao
Bart
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
