Celda con medidas determinadas

Hola Gustavo,

Excel no está pensado para ese tipo de configuraciones, ya que en función de
lo que tengas seleccionado para imprimir y de las escalas que emplees el
tamaño de las celdas varía, de los márgenes, de la impresora,

Lo que se puede hacer es, una vez que tienes definido el tamaño adecuado de
papel, la escala de impresión y todo lo que debe entrar en la hoja a base de
prueba y error hallar el tamaño de celda preciso.

Un saludo,
Juan

"Gustavo Cáceres" escribió

Hola a todos.
¿Cómo puedo hacer, para que mis celdas midan 3,4cms de ancho y 1,85cms de
alto?

Gracias de antemano

Gustavo Cáceres

hola, Gustavo !

Como puedo hacer, para que mis celdas midan 3,4cms de ancho y 1,85cms de alto?

como ya te comenta Juan, es mas seguro que probable que habra algunos factores "fuera de control" :-((

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

Hola de nuevo... (siento la demora en acceder al foro)
Tal y como me comentai los dos, y agradeciendo el lujo de detalles que me
has aportado Hector, la prueba error, es lo que al final permite "casi
conseguir", los resultados que buscaba, pero la verdad es que es muy muy
dificil.

Estas cuestiones, hacen que entienda por qué ayudais a tanta gente.. ;)

Gracias de nuevo por vuestra ayuda... ;)

Saludos desde la Isla de Tenerife..


Gustavo Cáceres



"Héctor Miguel" escribió en el mensaje
news:

hola, Gustavo !

Como puedo hacer, para que mis celdas midan 3,4cms de ancho y 1,85cms de
alto?

como ya te comenta Juan, es mas seguro que probable que habra algunos
factores "fuera de control" :-((

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