Como colocar um círculo à volta de uma célula no Excel?
Ao editar uma folha de cálculo, pode ser útil desenhar um círculo à volta de uma célula para a destacar claramente, como ilustrado na imagem seguinte. Apresento-lhe agora algumas dicas práticas para colocar um círculo à volta de uma célula no Excel.
Colocar um círculo à volta de uma célula com a forma Oval
Colocar um círculo à volta de uma célula com VBA
Colocar um círculo à volta de uma célula com a forma Oval
Para colocar um círculo à volta de uma célula, basta inserir uma forma oval.
1. Clique em Inserir > Formas e selecione a forma Oval na secção Formas Básicas da lista. Veja a imagem:
2. Desenhe a oval de forma a envolver a célula pretendida. Veja a imagem:
3. Clique com o botão direito do rato na forma e selecione Formatar Forma no menu de contexto.
4. Na caixa de diálogo Formatar Forma(ou no painel)Formatar Forma), clique no separador Preenchimento e arraste a seta de Transparência para a direita, até garantir que está definida como 100 % na caixa de texto. Veja a imagem:
5. Feche a caixa de diálogo. Agora, verá um círculo à volta da célula.
Dica: Por predefinição, a forma move-se e redimensiona-se em conjunto com a célula.
Colocar um círculo à volta de uma célula com VBA
Se quiser colocar rapidamente um círculo à volta de uma célula, pode usar código VBA.
1. Selecione a célula que pretende contornar e prima simultaneamente as teclas Alt + F11 para abrir a janela do Microsoft Visual Basic para Aplicações.
2. Clique em Inserir > Módulo e copie o seguinte código VBA para a janela que surge.
VBA: Colocar um círculo à volta de uma célula.
Sub DrawCircle()
'Updateby20141105
Dim Arng As Range
Dim WorkRng As Range
Set WorkRng = Application.Selection
For Each Arng In WorkRng.Areas
With Arng
x = Arng.Height * 0.1
y = Arng.Width * 0.1
Application.ActiveSheet.Ovals.Add Top: = .Top - x, Left: = .Left - y, _
Height: = .Height + 2 * x, Width: = .Width + 1.5 * y
With Application.ActiveSheet.Ovals(ActiveSheet.Ovals.Count)
.Interior.ColorIndex = xlNone
.ShapeRange.Line.Weight = 1.25
End With
End With
Next
WorkRng.Select
End Sub
3. Prima a tecla F5 ou clique no botão Executar para executar o código VBA; a célula selecionada ficará agora circundada.
Dicas:
(1) Se selecionar várias células adjacentes no primeiro passo, esta macro VBA irá desenhar um círculo à volta de todas essas células em conjunto.
(2) Se selecionar várias células não adjacentes no primeiro passo, esta macro VBA colocará um círculo à volta de cada uma delas individualmente.
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