Salve a tutti ho un grattacapo che non so risolvere : ho fatto un foglio di calcolo ( che allego a questo argomento ) il quale mi serve per annotare i miei turni; fino al mese scorso è andato tutto bene, ma due giorni fa ho avuto bisogno di immettere i miei turni di Dicembre ed al primo avvio del documento OpenOffice (4.1.13) mi avvisava che era stato creato con una versione più recente del programma.
Successivamente ho proceduto con la ricerca di una nuova versione di OpenOffice, ma senza successo perchè il programma rispondeva che la versione in uso era la più aggiornata.
All'apertura del documento ho notato che la formattazione era cambiata, l'orientamento della pagina non era più verticale ma era orizzontale, ed è stato facile modificare completamente il documento perchè i fogli sono solamente 12, uno per mese; impresa più ardua invece per la formattazione dei bordi, la quale è stata sostituita la misura dello spessore delle linee da 1 pt. a 0,05 pt.
Volevo chiedere a Voi che sicuramente siete più esperti del sottoscritto, se vi è un modo rapido per ripristinare lo spessore di tutte le linee dei bordi del documento ad 1 pt., senza rendere necessaria l'operazione di cambiamento linea per linea.
Ringrazio anticipatamente,
Massimo.
[Risolto] Cambio spessore bordi al foglio di calcolo completo.
-
- Messaggi: 130
- Iscritto il: sabato 5 marzo 2022, 16:03
[Risolto] Cambio spessore bordi al foglio di calcolo completo.
- Allegati
-
- Turni mensili.ods
- (31.44 KiB) Scaricato 30 volte
Ultima modifica di Massimo.1973 il mercoledì 23 novembre 2022, 18:49, modificato 1 volta in totale.
OpenOffice 4.1.11 Windows 10
Re: Cambio spessore bordi al foglio di calcolo completo.
Prova questa macro
Codice: Seleziona tutto
Sub Bordi
Dim oBordeLinea As New com.sun.star.table.BorderLine
oBordeLinea.InnerLineWidth = 35
Doc = ThisComponent
For i = 0 To Doc.Sheets.count - 1
oSheet =Doc.Sheets(i)
c = oSheet.createCursor
c.gotoEndOfUsedArea(false)
LastRow = c.RangeAddress.EndRow
LastCol = c.RangeAddress.EndColumn
oCellRange = oSheet.GetCellRangeByPosition(0, 0, LastCol, LastRow)
For col = oCellRange.RangeAddress.StartColumn To oCellRange.RangeAddress.EndColumn
For riga = oCellRange.RangeAddress.StartRow To oCellRange.RangeAddress.EndRow
cell = oSheet.getcellbyposition(col, riga)
Border = cell.BottomBorder
if Border.LineWidth = 2 then
cell.BottomBorder = oBordeLinea
cell.TopBorder = oBordeLinea
cell.LeftBorder = oBordeLinea
cell.RightBorder = oBordeLinea
end if
Next riga
next col
next i
end sub
- Allegati
-
- Turni mensili.ods
- (42.6 KiB) Scaricato 35 volte
LibreOffice 7.2.2.2 windows 10
Openoffice 4.1.13 su windows 10
Openoffice 4.1.13 su windows 10
-
- Messaggi: 130
- Iscritto il: sabato 5 marzo 2022, 16:03
Re: Cambio spessore bordi al foglio di calcolo completo.
Abbi pazienza ma non sono pratico, sai dirmi cortesemente come devo fare per far eseguire ad OpenOffice la macro che mi hai mandato ?
OpenOffice 4.1.11 Windows 10
Re: Cambio spessore bordi al foglio di calcolo completo.
Devi abilitare il programma alle macro andando su Strumenti - Opzioni - Sicurezza - Sicurezza delle macro - imposti a medio, ad ogni apertura del file ti comparirà una finestra dove dovrai selezionare il pulsante Abilita macro.
LibreOffice 7.2.2.2 windows 10
Openoffice 4.1.13 su windows 10
Openoffice 4.1.13 su windows 10
-
- Messaggi: 130
- Iscritto il: sabato 5 marzo 2022, 16:03
Re: Cambio spessore bordi al foglio di calcolo completo.
Non funziona, non cambia alcuno spessore dei bordi.
OpenOffice 4.1.11 Windows 10
Re: Cambio spessore bordi al foglio di calcolo completo.
Non hai nemmeno scaricato il file che ho allegato.
LibreOffice 7.2.2.2 windows 10
Openoffice 4.1.13 su windows 10
Openoffice 4.1.13 su windows 10
-
- Messaggi: 130
- Iscritto il: sabato 5 marzo 2022, 16:03
Re: Cambio spessore bordi al foglio di calcolo completo.
Scusa non mi ero accorto che avevi allegato la soluzione, grazie.
OpenOffice 4.1.11 Windows 10