[RISOLTO] formattare celle tramite macro

[upacill]

Ciao vorrei formattare delle celle tramite una macro, con la normale formattazione condizionale sarebbe impossibile per l'elevato numero di celle da formattare diversamente, quali sono i comandi per farlo tramite basic? dovrei applicare un determinato colore ad alcune celle e poi fare il bordo, è possibile? Grazie in anticipo.

[c.spaziani]

Codice: Seleziona tutto

Sub FormattaCelle
Dim aBorder as New com.sun.star.table.BorderLine

	oSheet = ThisComponent.getSheets().getByName("Foglio1")
	oCellRange = oSheet.getCellRangeByPosition(1, 1, 2, 2) 'B2:C3
	'oCellRange = oSheet.getCellRangeByName("B2:C3") 'Se preferisci selezionare per nome
	oCellRange.CellBackColor = RGB(211, 211, 211)
	With aBorder
		.Color = RGB(255, 0, 0)
		.OuterLineWidth = 1
	End With
	oBorder = oCellRange.TableBorder
	With oBorder
		.LeftLine = aBorder
		.TopLine = aBorder
		.RightLine = aBorder
		.BottomLine = aBorder
	End With
	oCellRange.TableBorder = oBorder

End Sub

[upacill]

Grazie sei davvero un grande SUPER RISOLTO