macro per formattare un foglio xls con openoffice
ciao a tutti chiedo una grossa mano per una macro che sto scrivendo. Vorrei ottenere che le righe e le colonne del foglio xls vengano formattare nella larghezza/altezza giusta. Purtroppo con la stringa che vi riporto sotto mi sistema solo le righe. Cosa sto sbagliando ? Il foglio di xls si chiama riordino cosi come il nome del file.
codice:
sub Main
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
For I = 0 To 60
Col = Sheet.Col(I)
Col.OptimalWidth = True
Next I
end sub
Grazie mille Riccardo :)