hacer celdas cuadradas

11/12/2004 - 20:37 por JPF | Informe spam
Hola quisiera saber la manera de crear celdas completamente cuadradas, ya
que no me puedo fiar ni del ancho ni del alto que me da.
Gracias

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
12/12/2004 - 03:04 | Informe spam
hola, JPF !

... crear celdas completamente cuadradas ... no me puedo fiar ni del ancho ni del alto que me da.



toma nota de lo siguiente con respecto de las propiedades 'de medidas' de los objetos...
-> Width y RowHeight 'devuelven' una medida en puntos [1/72 de pulgada... 72 pixeles por pulgada]
-> ColumnWidth 'devuelve' el ancho de la columna [basado en la fuente 'normal... en uso']
-> 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.]

el ejemplo que te expongo al final, 'ajusta' las dimensiones de la celda activa a un 'cuadrad' de +/- 10 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 que te menciono] :(
pero.. de que la celda 'se cuadra'... ¡ dalo por hecho !!! :))
saludos,
hector.
en un modulo de codigo 'normal' ==Sub CuadrarCeldaActiva()
Dim Cms As Double, Fx As Double
Cms = 10
With ActiveCell
.ColumnWidth = Cms
Fx = .Width / .ColumnWidth
.ColumnWidth = Application.CentimetersToPoints(Cms) / Fx
Fx = .Width / .ColumnWidth
.RowHeight = .ColumnWidth * Fx
End With
End Sub
Respuesta Responder a este mensaje
#2 JPF
12/12/2004 - 19:44 | Informe spam
Gracias
"Héctor Miguel" escribió en el mensaje
news:%23BeZh7%
hola, JPF !

... crear celdas completamente cuadradas ... no me puedo fiar ni del
ancho ni del alto que me da.



toma nota de lo siguiente con respecto de las propiedades 'de medidas' de
los objetos...
-> Width y RowHeight 'devuelven' una medida en puntos [1/72 de pulgada...
72 pixeles por pulgada]
-> ColumnWidth 'devuelve' el ancho de la columna [basado en la fuente
'normal... en uso']
-> 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.]

el ejemplo que te expongo al final, 'ajusta' las dimensiones de la celda
activa a un 'cuadrad' de +/- 10 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 que te
menciono] :(
pero.. de que la celda 'se cuadra'... ¡ dalo por hecho !!! :))
saludos,
hector.
en un modulo de codigo 'normal' ==> Sub CuadrarCeldaActiva()
Dim Cms As Double, Fx As Double
Cms = 10
With ActiveCell
.ColumnWidth = Cms
Fx = .Width / .ColumnWidth
.ColumnWidth = Application.CentimetersToPoints(Cms) / Fx
Fx = .Width / .ColumnWidth
.RowHeight = .ColumnWidth * Fx
End With
End Sub

email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida