Ciao Paola,
Paola Castagneri ha scritto:
> Buongiorno a tutti,
> in un file di calc con circa 3000 righe avrei bisogno di selezionare, e poi
> stampare, tutte le righe formattate con uno stesso colore.
> E' possibile?
Con le macro credo di si, ma occorre qualche dato in più
Hai usato gli stili per definire il colore oppure hai applicato
direttamente la formattazione alle celle?
Che colore devi intercettare?
Le altre righe che fine devono fare? si devono nascondere?
Tanto per darti un idea, la macro seguente nella tabella attiva
individua tutte le righe che contengono almeno una o più celle blu, e
nasconde tutte le altre righe
NOTA BENE:
Provare con massima cautela, chiudere tutti i documenti attivi.
NON usare su documenti contenenti dati importanti!!
Anzi, meglio creare un documento nuovo e provare su quello, dopo aver
scritto qualche testo e colorato un po di celle di blu (il primo blu
della paletta, in alto a sx)
saluti
Paolo M
---------------------------------------------------
Sub HideNonBlueRows
oSheet = ThisComponent.CurrentController.ActiveSheet
oCursor = oSheet.createCursor()
oCursor.gotoStartOfUsedArea(False)
oCursor.GotoEndOfUsedArea(True)
oRanges = oCursor.getCellFormatRanges()
For Each oFormatRange in oRanges
If oFormatRange.CellBackColor <> RGB(0,0,128) Then
oFormatRange.Rows.IsVisible = False
End If
Next
End Sub
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
