por Hola a todos!.
Hace unos días un lector me enviaba una consulta acerca de la posibilidad de mostrar información en una celda en modo “imagen reflejada”, esto es, girar los caracteres de una palabra o frase 180 grados. La utilidad en estos casos suele ser para imprimir esa información y aplicarla en diferentes contextos, por ejemplo las ambulancias, que lo usan en el frontal del vehículo para que los conductores a los que necesita adelantar puedan leer que se trata de una ambulancia.
Si bien, para realizar esta tarea las impresoras suelen estar dotadas esta función, normalmente es necesario activarla en las características de la impresora o en el acabado de la hoja, etc …, en algunos casos o bien no existe esa posibilidad o bien la opción está desactivada por un administrador y no podemos realizar nuestro trabajo.
En Excel, se pueden girar los caracteres en una celda, pero el giro está limitado hasta los 90 grados, de forma que no lo podremos hacer directamente desde el menú. Pero existe una opción que sí nos permitiría girar los 180 grados, y es pasando el contenido de la celda a imagen y luego realizar el giro (en giro 3D):
Siguiendo con este método, podemos utilizar un poco de programación para que sea un poco más automático, de forma que solo tendremos que seleccionar el área o rango de celdas con la información y con tan solo pulsar un botón obtendremos los datos tal y como los necesitamos.
Imaginad que tenemos este texto y lo queremos mostrar reflejado:
Para realizar esta tarea vamos a utilizar este código:
Sub GENERAR_IMAGEN_REFLEJADA()
'Definimos variables
Dim Area As Object
'Desactivamos actualización de pantalla
Application.ScreenUpdating = False
'Controlamos que existan datos en la selección
On Error GoTo Control
With ActiveSheet
Set Area = Application.Intersect(Selection, .UsedRange)
Area.Select
'Centramos horizontal y verticalmente el texto seleccionado
With Area
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With
'Copiamos la selección y la pegamos en "C2"
Selection.Copy
.Range("C2").Select
.Pictures.Paste.Select
End With
'Rotamos la imagen 180 grados
With Selection
.ShapeRange.ThreeD.RotationX = -180
.Copy = False
End With
'Si no hemos seleccionado datos, mostramos mensaje de advertencia
Control: If Err.Number = "91" Then MsgBox ("EL RANGO SELECCIONADO NO CONTIENE DATOS"), vbExclamation, "SELECCIONA RANGO"
Application.ScreenUpdating = True
End Sub
Para este ejemplo he dejado un botón de comando para que probéis, pero también se podría modificar para ejecutarlo pulsando una tecla.
El resultado es el siguiente:
Seleccionáis desde A2 a A3 y al pulsar el botón se generará la imagen reflejada automáticamente.
La imagen se pegará a partir de la celda “C2” (podéis especificar el lugar que más os convenga) y luego tan solo tendréis que establecer un área de impresión entorno a la imagen e imprimir.
Y eso es todo! 🙂
Descarga el archivo de ejemplo pulsando en: GIRAR 180 GRADOS EL CONTENIDO DE UN RANGO SELECCIONADO EN EXCEL
¿Te ha resultado de interés?, puedes apoyar a Excel Signum con una pequeña donación.
¡¡Muchas gracias!!
