Macro per bordi cella

[il Luca]

Buongiorno a tutti,
sapete gentilmente indicarmi cosa dovrei aggiungere al codice qui riportato per far sì che oltre a mettere il grassetto al testo, mi metta un bordo blu sul lato basso della cella? Per intenderci, come per la cella B4 nel file allegato.


Sub Main

Doc = ThisComponent
Sheet = Doc.sheets(0)
Cell= sheet.getcellbyposition(1, 1)
cell.CharWeight=200

End Sub

[patel]

usa il registratore di macro, il codice non è elegante ma funziona

[il Luca]

Il fatto è che volevo fare come stavo proponendo proprio per non usare più la macro del registratore
Qui ho trovato qualcosa che, a me che ne so poco, parrebbe attinente, ma non riesco ad usarlo:
https://www.openoffice.org/api/docs/com ... rLine.html
Forse non c'entra niente? Oppure si può fare qualcosa così?
Grazie per l'interessamento.
Ciao.
Luca.

[patel]

io sono contrario al registratore, ma in questo caso ti assicuro che è conveniente, comunque puoi cercare se trovi un esempio qui
http://www.pitonyak.org/oo.php

[il Luca]

Ah ok, allora se tu per primo consigli motivatamente il registratore per questo caso specifico, turiamoci il naso e usiamolo
Grazie di tutto.
Ciao.
Luca.

[patel]

si tratta di uno dei pochi casi in cui il registratore produce codice comprensibile, comunque visita il link sopra inserito, troverai molto materiale utile per imparare