[Risolto] Modifica bordo cella da macro

[il Luca]

Buongiorno a tutti,
rieccomi ad attingere a questo pozzo di sapere di office
Da una macro posso ad esempio cambiare il colore del testo di una cella con CharColor, invece se volessi modificare un bordo rendendolo molto spesso e di un colore diverso dal predefinito?
Allego esempio, il testo di A2 cambia colore, come cambio anche ciò che ho detto?
Grazie.
Luca.

[patel]

è un po' complicato

Codice: Seleziona tutto

Sub Bordi
Dim TableBorder As New com.sun.star.table.TableBorder
Dim mLine As New com.sun.star.table.BorderLine
Doc = ThisComponent
Sheet = Doc.sheets(0)
Cell= sheet.getcellRangebyName("A2")
aBorder = cell.TableBorder
mLine.OuterLineWidth = 100 ' spessore linea
mLine.InnerLineWidth = 0
mLine.Color = RGB(255,0,0)
cell.TableBorder.IsTopLineValid = 1
aBorder.BottomLine = mLine
aBorder.TopLine = mLine
aBorder.LeftLine = mLine
aBorder.RightLine = mLine
cell.TableBorder = aBorder
End Sub

[il Luca]

Fantastico! Non avete idea dell'importanza dei suggerimenti che mi avete dato su questo forum, grazie mille!

Ciao.
Luca.

[il Luca]

Un'ultima domanda: se volessi farlo su un gruppo di celle invece che su una singola? Diciamo da A2 ad A10?
Grazie infinite.

[il Luca]

Trovato:
getCellRangebyPosition
o Name