Righe e colonne
Ogni foglio contiene un elenco delle righe e delle colonne, che sono disponibili tramite le proprietà Rows e Columns dell'oggetto foglio elettronico e supporta i servizi com.sun.star.table.TableColumns e/o com.sun.star.table.TableRows.
L'esempio seguente crea due oggetti che fanno riferimento alla prima riga e alla prima colonna di un foglio e memorizza i riferimenti nelle variabili oggetto FirstCol e FirstRow .
Dim Doc As Object
Dim Sheet As Object
Dim FirstRow As Object
Dim FirstCol As Object
Doc = StarDesktop.CurrentComponent
Sheet = Doc.Sheets(0)
FirstCol = Sheet.Columns(0)
FirstRow = Sheet.Rows(0)
Gli oggetti colonna supportano il servizio com.sun.star.table.TableColumn che dispone delle seguenti proprietà:
- Width (long)
- Larghezza di una colonna in centesimi di millimetro.
- OptimalWidth (Boolean)
- Imposta una colonna sulla sua larghezza ottimale.
- IsVisible (Boolean)
- Visualizza una colonna.
- IsStartOfNewPage (Boolean)
- Nella stampa, crea un'interruzione di pagina prima di una colonna.
La larghezza di una colonna viene ottimizzata solo quando la proprietà OptimalWidth è impostata su True. Se viene modifica la larghezza di una singola cella, la larghezza della colonna che contiene la cella rimane invariata. In termini di funzionalità, OptimalWidth è più un metodo che una proprietà.
Gli oggetti riga sono basati sul servizio com.sun.star.table.RowColumn, che dispone delle seguenti proprietà:
- Height (long)
- Altezza della riga in centesimi di millimetro.
- OptimalHeight (Boolean)
- Imposta una colonna sulla sua altezza ottimale.
- IsVisible (Boolean)
- Visualizza la riga.
- IsStartOfNewPage (Boolean)
- Nella stampa, crea un'interruzione di pagina prima della riga.
Se la proprietà OptimalHeight di una riga è impostata su True, l'altezza della riga viene modificata automaticamente quando si varia l'altezza di una cella della riga. L'ottimizzazione automatica prosegue finché alla riga non è assegnata un'altezza assoluta mediante la proprietà Height.
L'esempio seguente attiva l'ottimizzazione automatica dell'altezza per le prime cinque righe del foglio e rende invisibile la seconda colonna.
Dim Doc As Object
Dim Sheet As Object
Dim Row As Object
Dim Col As Object
Dim I As Integer
Doc = StarDesktop.CurrentComponent
Sheet = Doc.Sheets(0)
For I = 0 To 4
Row = Sheet.Rows(I)
Row.OptimalHeight = True
Next I
Col = Sheet.Columns(1)
Col.IsVisible = False
 |
Agli elenchi Rows e Columns è possibile accedere tramite un indice in Apache OpenOffice Basic. A differenza di VBA, la prima colonna ha indice 0 e non indice 1. |
Inserimento ed eliminazione di righe o colonne
Gli oggetti Rows e Columns di un foglio possono accedere alle righe e alle colonne già esistenti nonché inserirle o modificarle.
Dim Doc As Object
Dim Sheet As Object
Dim NewColumn As Object
Doc = StarDesktop.CurrentComponent
Sheet = Doc.Sheets(0)
Sheet.Columns.insertByIndex(3, 1)
Sheet.Columns.removeByIndex(5, 1)
Questo esempio utilizza il metodo insertByIndex per inserire una nuova colonna nella posizione della quarta colonna nel foglio (indice 3; la numerazione inizia da 0). Il secondo parametro specifica il numero di colonne da inserire (in questo esempio: uno).
Il metodo removeByIndex elimina la sesta colonna (indice 5). Ancora una volta, il secondo parametro specifica il numero di colonne da eliminare.
I metodi di inserimento ed eliminazione delle righe utilizzando la funzione dell'oggetto Rows nello stesso modo dei metodi illustrati per la modifica delle colonne utilizzando l'oggetto Columns.
| Content on this page is licensed under the Public Documentation License (PDL). |
