Como imprimir uma folha de cálculo com os círculos de validação visíveis no Excel?
Em determinados casos, podemos rodear dados inválidos com círculos para os destacar — mas, ao imprimir a folha de cálculo, esses círculos de validação simplesmente não aparecem. Já passou por este problema no Excel? Hoje, mostro-lhe alguns truques rápidos para resolver esta tarefa.
Imprimir folha de cálculo com círculos de validação colando-os como imagem
Imprimir folha de cálculo com círculos de validação utilizando código VBA
Imprimir folha de cálculo com círculos de validação colando-os como imagem
No Excel, não é possível imprimir diretamente os círculos de validação, mas podemos copiar e colar o intervalo de dados com esses círculos como uma imagem e, em seguida, imprimi-la.
1. Selecione o intervalo de dados cujos círculos pretende imprimir.
2. Prima as teclas Ctrl + C no teclado para copiar e, em seguida, vá para uma nova planilha, clique numa célula, clique com o botão direito do rato e escolha Colar Especial > Imagem. Veja a captura de ecrã:
3. A sua seleção foi agora colada como imagem e, ao imprimir a nova planilha, os círculos serão impressos com sucesso.
Imprimir folha de cálculo com círculos de validação utilizando código VBA
Se preferir não colar o Intervalo de Dados como imagem, o seguinte código VBA também pode ajudá-lo.
1. Após configurar a validação de dados, prima e mantenha premidas as teclas Alt + F11 no Excel para abrir a janela do Microsoft Visual Basic for Applications.
2. Em seguida, clique em Inserir > Módulo e cole a macro seguinte na Janela do Módulo.
Código VBA: Inserir círculos vermelhos nos dados invá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. Em seguida, prima a tecla F5 para executar este código e os dados inválidos serão rodeados por um óvalo vermelho. Veja a captura de ecrã:
4. Ao imprimir esta folha de cálculo que contém os círculos vermelhos, estes serão impressos também.
Nota:
Com este código VBA, os círculos não serão removidos pela funcionalidade Limpar Círculos de Validação do Excel. Se pretender eliminá-los, utilize o código abaixo.
Código VBA: Remover círculos de validação na folha 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
Artigo relacionado:
Como contornar com círculos os dados inválidos no Excel?
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos