Alle 02:25, venerdì 2 marzo 2007, Paolo Mantovani ha scritto:
[....]
> ecco un breve esempio:
>
> REM  *****  BASIC  *****
>
> Sub Main
>
> '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

errata corrige:
sostituire <> con =

ciao
paolo M

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

Rispondere a