Debido a que Excel es principalmente una aplicación para el análisis de datos, a veces sus herramientas de presentación sufren por comparación. Por ejemplo, a veces sus datos tienen texto de varias longitudes y pueden exceder el espacio de impresión disponible.
Este artículo le mostrará cómo Calcule el ancho correcto de la columna para asegurarse de que el texto se ajuste dentro de la página. Un escenario típico puede ser 2 columnas estándar y luego una tercera columna que muestra comentarios:
Nombre, Fecha, Comentario
Aunque Excel tiene Algunas herramientas disponibles, como la función de ajuste automático, no tienen nada que ver con el control de su aplicación para obtener los ingresos que necesita.
Vamos a escribir un código que calculará el ancho de El espacio de impresión disponible, por lo que podemos determinar los anchos de columna para garantizar una impresión eficiente.
Cálculo del espacio de impresión disponible en la página
Uno de los problemas es que las unidades de medida para el tamaño de página , m Argins y las columnas son inconsistentes y necesitamos estandarizar las unidades antes de determinar el ancho correcto de la columna.
Una forma de avanzar es convertir todas las unidades en puntos, en lugar de pulgadas o centímetros. El tamaño de la página se devuelve inicialmente en pulgadas y se convierte
pgWid = Application.InchesToPoints (ActiveSheet.PageSetup.PaperSize)
leftMargin = ActiveSheet.PageSetup.LeftMarginCarqueArgentina.com
Por lo tanto, algunas matemáticas simples nos darán el espacio de impresión disponible y este es el ancho que necesitamos para encajar nuestra tercera columna en.
content = pgWid - leftMargin - rightMargin
col3 = content-columns ( 1) .width - columnas (2) .width
Ahora tenemos el ancho requerido para la columna tres en puntos y eso está bien, excepto que el ancho de la columna es no medido en puntos, bu t en la unidad propia de Excel basada en tamaños de fuente. Por lo tanto, crearemos un factor para convertir el ancho según las medidas en la celda 1.
& # 39; ancho en puntos: solo lectura.
pts = Columnas (1). Ancho
& # 39; ancho en la unidad de medida de Excel
wd = Columnas (1) .ColumnWidth
factor = pts / wd
col3 = col3 / factor
Finalmente, tenemos valor para el ancho de la columna tres y lo usamos en el siguiente código más la configuración de ajuste de la palabra en verdadero y la altura de la fila para el ajuste automático
Columnas (3) .ColumnWidth = col3
Columnas (3) .wrapText = true
Filas (3) .EntireRow.AutoFit ]Si bien los cálculos para el tamaño de la página y las columnas pueden ser un poco confusos, vale la pena perseverar. Un buen conocimiento de cómo se determinan los diferentes elementos de una hoja de cálculo para permitir la preparación de datos para el pri Nting.
