Medidas en Centimetros en Excel

hola, !

Quiero saber si es posible y como hago para determinar el tama#o de las celdas en centimetros en una hoja de excel

1) no te aseguro que obtendras medidas EXACTAS [de cierto que]... habra alguna 'variacion' -supongo que-... 'aceptable' ? :))

2) al final del presente te propongo dos alternativas [que son perfectamente modificables/adaptables/...]
para ajustar a medidas [centimetros, milimetros, ...] el alto y ancho de una celda [p.e. la celda activa]

3) de todas formas [y solo 'por si las...'] transcribo las consideraciones [que considero] 'relevantes' para tomar en cuenta :))

si cualquier duda [o informacion adicional]... comentas?
saludos,
hector.

a) toma muy en cuenta que...
los 'ajustes posibles' del ancho de una columna SOLO se pueden dar en 6 'intervalos' entre un entero y el siguiente...
0.17, 0.33, 0.50, 0.67, 0.83 y 1.00 [1 seria el siguiente entero] y son medidas =>en puntos<= [p.e.]
si tratas de establecer [aun por codigo] el ancho de una columna en 12.25 [finalmente] quedara en 12.33 :(
intervalos que se deberan tener en cuenta si se pretende 'ajustar' a medidas en centimetros, pulgadas, -???-

b) con respecto de las propiedades 'de medidas' de los objetos...
- ColumnWidth devuelve el ancho de la columna [basado en la fuente 'normal... en uso']
- Width y RowHeight devuelven una medida en puntos [1/72 de pulgada... 72 pixeles por pulgada]
- la propiedad RowHeight [la altura de una fila] NO puede 'exceder' de 409.5 puntos
- Zoom [aplicable a un objeto Window] afecta la 'proporcionalidad' entre ambos tipos de medida
- la resolucion 'de salida' [impresora] puede mostrar 'proporcionalidades diferentes' [vs. pantalla]
- en las propiedades de la pantalla [windows] cada usuario puede personalizar los puntos por pulgada
- se necesita 'factorizar' las diferentes unidades de medida [etc. etc. etc.]

c) el ejemplo que te expongo en seguida, 'ajusta' las dimensiones de la celda activa a un 'cuadrado' de +/- 12 cms
puedes adaptarlo para 'trabajar' con grupos/bloques de celdas y/o por medio de bucles/ciclos
NO te aseguro que las medidas sean 'exactas' [por 'los factores'] pero... de que la celda 'se cuadra'... se cuadra !!! :))
en un modulo de codigo 'normal' ==Sub CuadrarCeldaActiva()
Dim Cms As Double, Fx As Double
Cms = 12
With ActiveCell
.ColumnWidth = Cms
Fx = .Width / .ColumnWidth
.ColumnWidth = Application.CentimetersToPoints(Cms) / Fx
Fx = .Width / .ColumnWidth
.RowHeight = .ColumnWidth * Fx
End With
End Sub

d) otra forma de 'dimensionar' alto de fila y ancho de columna...
en un modulo de codigo 'normal' ==Sub CeldaActivaEnMilimetros()
Dim Ancho As Single, Alto As Single, Fx As Single, Fy As Single
Ancho = 80 ' <= indica al ancho en milimetros '
Alto = 80 ' <= indica al alto en milimetros '
Ancho = Ancho / 10
Alto = Alto / 10
Fy = Alto / Ancho
With ActiveCell
.ColumnWidth = Ancho
Fx = .Width / .ColumnWidth
.ColumnWidth = Application.CentimetersToPoints(Ancho) / Fx
Fx = .Width / .ColumnWidth
.RowHeight = .ColumnWidth * Fx * Fy
End With
End Sub