¿Cómo imprimir una hoja de cálculo mostrando los círculos de validación en Excel?
En ciertos casos, es posible que hayamos rodeado con círculos algunos datos no válidos para resaltarlos, pero al imprimir la hoja de cálculo, esos círculos de validación no aparecen. ¿Le ha ocurrido esto alguna vez en Excel? Hoy le mostraré algunos trucos rápidos para solucionarlo.
Imprimir la hoja de cálculo con círculos de validación pegándolos como imagen
Imprimir la hoja de cálculo con círculos de validación mediante código VBA
Imprimir la hoja de cálculo con círculos de validación pegándolos como imagen
En Excel, no es posible imprimir directamente los círculos de validación, pero sí puedes copiar y pegar el rango de datos con los círculos de validación como una imagen para imprimirlo después.
1. Seleccione el rango de datos del que desea imprimir los círculos.
2. Pulse las teclas Ctrl + C del teclado para copiarlo y, a continuación, vaya a una hoja de cálculo nueva, haga clic en una celda, pulse con el botón derecho y elija Pegado especial > Imagen. Consulte la captura de pantalla:
3. A continuación, su selección se pegará como imagen y, al imprimir la hoja de cálculo nueva, los círculos se imprimirán correctamente.
Imprimir la hoja de cálculo con círculos de validación mediante código VBA
Si prefiere no pegar el rango de datos como imagen, el siguiente código VBA también puede ayudarle.
1. Tras configurar la validación de datos, mantenga pulsadas las teclas Alt + F11 en Excel para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. A continuación, haga clic en Insertar > Módulo y pegue la siguiente macro en la Ventana de módulo.
Código VBA: Insertar círculos rojos en los datos no válidos
Sub AddValidationCirclesForPrinting()
'Update 20140724
Dim Rng As Range
Dim WorkRng As Range
Dim xCount As Integer
Dim xShape As Shape
On Error Resume Next
Set WorkRng = Application.ActiveSheet.Cells.SpecialCells(xlCellTypeAllValidation)
If WorkRng Is Nothing Then
Exit Sub
End If
xCount = 0
For Each Rng In WorkRng
If Not Rng.Validation.Value Then
Set xShape = Application.ActiveSheet.Shapes.AddShape(msoShapeOval, Rng.Left - 2, Rng.Top - 2, Rng.Width + 4, Rng.Height + 4)
xShape.Fill.Visible = msoFalse
xShape.Line.ForeColor.SchemeColor = 10
xShape.Line.Weight = 1.25
xCount = xCount + 1
xShape.Name = "InvalidData_" & xCount
End If
Next
Exit Sub
End Sub
3. A continuación, pulse la tecla F5 para ejecutar este código y los datos no válidos quedarán rodeados por un óvalo rojo; consulte la captura de pantalla:
4. Al imprimir esta hoja de cálculo con los círculos rojos, ¡estos también saldrán impresos!
Nota:
Con este código VBA, los círculos no se eliminarán mediante la función Borrar círculos de validación de Excel. Si desea eliminarlos, aplique el siguiente código.
Código VBA: Eliminar círculos de validación en la hoja de cálculo
Sub RemoveValidationCircles()
'Update 20140724
Dim xShape As Shape
For Each xShape In Application.ActiveSheet.Shapes
If xShape.Name Like "InvalidData_*" Then
xShape.Delete
End If
Next
End Sub
Artículo relacionado:
¿Cómo resaltar con círculos los datos no válidos en Excel?
Las mejores herramientas de productividad para Office
Potencie sus habilidades en Excel con Kutools para Excel y experimente una eficiencia como nunca antes.Kutools para Excel ofrece más de 300 funciones avanzadas para aumentar su productividad y Ahorrar tiempo.Haga clic aquí para obtener la función que más necesita...
Office Tab aporta una interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Active la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas dentro de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumente su productividad en un 50 % y elimine cientos de clics del ratón cada día!
Todos los complementos de Kutools en un solo instalador.
Kutools for Office es la suite que incluye complementos para Excel, Word, Outlook y PowerPoint, además de Office Tab Pro, ideal para equipos que trabajan en distintas aplicaciones de Office.
- Suite integral— complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un instalador, una licencia— configuración en minutos (compatible con MSI)
- Rendimiento mejorado en conjunto— productividad optimizada en todas las aplicaciones de Office
- Prueba gratuita de 30 días con todas las funciones— sin registro ni tarjeta de crédito
- La mejor relación calidad-precio— ahorre frente a la compra individual de complementos