Cita de Carlos Martinez Tarantino en 8 de junio de 2021, 19:27

Macro para Personalizar hojas de Cálculo

MACRO PARA REALIZAR ACCIONES PERSONALIZADAS EN UNA HOJA (QUE NO NOS PERMITE EXCEL POR CONFIGURACION)

Recientemente en un curso me han consultado ¿Cómo se puede personalizar en una hoja, el Pie de Página del Área de Impresión?

Bien, pues aquí os dejo una posible solución a este asunto: creando una macro personalizada que permita configurar ciertos aspectos que Excel no nos deja guardar de forma predeterminada.

Esta macro deberemos de colócala en nuestro libro personal de macros y seleccionarla a través de la barra de acceso rápido o en una cinta de opciones personal que crearemos para tal efecto.

La siguiente macro puedes ajustarla según tus necesidades:

----------------------------------------------------------------------------------------------

Sub PersonalizarHojaNUEVA()
' Damos las características de "Preferencia personal" a la hoja activa en la que estamos

' Ajuste del Ancho de la Primera Columna
Columns("A:A").ColumnWidth = 2.5

' Quitar la Lineas de Division
ActiveWindow.DisplayGridlines = False

' Ajustamos la Alineacion Vertical Centrada
Cells.VerticalAlignment = xlCenter

' Esquemas: Mostrar los simbolos de ESQUEMA a la altura de la fila de DETALLE
On Error Resume Next
With ActiveSheet.Outline
.AutomaticStyles = False
.SummaryRow = xlAbove
.SummaryColumn = xlRight
End With

' Ajuste del tamaño de la barra de desplazamiento
ActiveWindow.TabRatio = 0.91

' Introduce el nombre definido "FechaInformes"
ActiveWorkbook.Names.Add Name:="FechaIn=feformes", RefersTo:="=""Valencia, ""&TEXT(TODAY(),""dddd"")&"" ""&TEXT(TODAY(),""d"")&"" de ""&TEXT(TODAY(),""mmmm"")&"" de ""&TEXT(TODAY(),""aaaa"")"

' Ajuste de las Areas de Impresion
With ActiveSheet.PageSetup
.RightFooter = "&R&8 &A  -  &D"

.LeftMargin = Application.InchesToPoints(0.4)
.RightMargin = Application.InchesToPoints(0.35)
.TopMargin = Application.InchesToPoints(0.46)
.BottomMargin = Application.InchesToPoints(0.5)
.HeaderMargin = Application.InchesToPoints(0.3)
.FooterMargin = Application.InchesToPoints(0.3)

.CenterHorizontally = True
.CenterVertically = True
.Orientation = xlPortrait
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1

End With

' Seleccionar la celda B2
Range("B2").Select

End Sub