Non avendo la versione 2003 ma la 2007 posso suggerirti come fare per
quest'ultima versione, vedi può servire anche per la tua versione
individuando i relativi comandi tramite menu.
Con il pulsante "Layout di pagina" che si trova nella barra multifunzione
"Visualizza-->Gruppo Visualizzazioni cartella di lavoro-->Pulsante Layout di
pagina), è possibile specificare la larghezza di una colonna o l'altezza di
una riga in centimetri, l'unità di misura predefinita in tale
visualizzazione, ma è anche possibile impostare i millimetri o i pollici
(pulsante Microsoft Office , Opzioni di Excel, categoria Impostazioni
avanzate).
--
"Fai sapere se e come hai risolto. Grazie"
Ciao paoloard
http://www.riolab.org
"paoloard" wrote:
Purtroppo queste opzioni in Excel 2003 non ci sono. Allora, per il momento,
sono andato per tentativi: se si clicca sul delimitatore di destra di una
colonna (nella riga dei nomi di colonna), appare la larghezza della colonna
in pixel; da qui sono risalito a quanti pixel ci sono nella larghezza di 1cm,
2cm, 3cm ecc. e ho creato una tabella. Con la tabella posso impostare la
larghezza desiderata in cm. E, per il momento, andrò avanti così.......
Grazie, comunque, per la risposta.
Anche questa è una soluzione. Infatti me l'ero riservata come alternativa ma
vedo che mi hai preceduto.
--
Ciao paoloard
http://www.riolab.org
http://office.microsoft.com/it-it/excel/HP011517241040.aspx
--
---------------------------
Mauro Gamberini
http://www.riolab.org/
http://blog.maurogsc.eu/
se ne è già parlato quindi se cerchi nell'NG
troverai qualcosa ...
la soluzione che posto è un palliativo visto che
per quanto ne so non esiste il modo di fare questa
trasformazione realmente ... ci si può avvicinare
al risultato atteso.
ho già che c'ero previsto anche che si voglia
convertire anche l'altezza della cella ...
word ha due funzioni che convertono punti in cm
e viceversa ... ed è facile usarle anche in excel:
Sub test()
'adatta la cella [a1] a 5 cm di base per 1 cm di altezza
Adatta [a1], 5, 1
End Sub
Function CmToPoints(Cm As Single) As Single
Dim W As Object
Set W = CreateObject("Word.Application")
CmToPoints = W.CentimetersToPoints(Cm)
End Function
Function Adatta( _
rng As Excel.Range, _
bCm As Single, _
hCm As Single)
Dim p As Single
rng.RowHeight = CmToPoints(hCm)
p = CmToPoints(bCm)
If rng.Width = p Then
Exit Function
ElseIf rng.Width > p Then
Do Until rng.Width > p
rng.ColumnWidth = rng.ColumnWidth + 1
Loop
Else
Do Until rng.Width < p
rng.ColumnWidth = rng.ColumnWidth - 1
Loop
End If
Debug.Print rng.Height
Debug.Print rng.Width
End Function