Como ampliar ou aumentar o tamanho das células selecionadas no Excel?
Como todos sabemos, o Excel inclui uma funcionalidade de ampliação que permite aumentar o tamanho do conteúdo das células em toda a folha de cálculo. No entanto, por vezes, precisamos apenas de ampliar as células selecionadas. Existem boas soluções para ampliar exclusivamente as células selecionadas numa folha de cálculo?
Ampliar ou aumentar a célula selecionada com código VBA
Ampliar ou aumentar a célula selecionada com código VBA
Embora não exista uma forma direta de ampliar as células selecionadas no Excel, posso oferecer-lhe um código VBA como solução alternativa para realizar esta tarefa. Siga os passos abaixo:
1. Clique com o botão direito no separador da folha onde pretende que as células selecionadas sejam ampliadas automaticamente e, em seguida, escolha Ver Código no menu de contexto. Na janela do Microsoft Visual Basic para Aplicações que se abre, copie e cole o seguinte código no módulo em branco:
Código VBA: Ampliar ou aumentar as células selecionadas:
Private Sub worksheet_selectionchange(ByVal Target As Range)
'Updateby Extendoffice
Dim xRg As Range
Dim xCell As Range
Dim xShape As Variant
Set xRg = Target.Areas(1)
For Each xShape In ActiveSheet.Pictures
If xShape.Name = "zoom_cells" Then
xShape.Delete
End If
Next
If Application.WorksheetFunction.CountBlank(xRg) = xRg.Count Then Exit Sub
Application.ScreenUpdating = False
xRg.CopyPicture appearance:=xlScreen, Format:=xlPicture
Application.ActiveSheet.Pictures.Paste.Select
With Selection
.Name = "zoom_cells"
With .ShapeRange
.ScaleWidth 1.5, msoFalse, msoScaleFromTopLeft
.ScaleHeight 1.5, msoFalse, msoScaleFromTopLeft
With .Fill
.ForeColor.SchemeColor = 44
.Visible = msoTrue
.Solid
.Transparency = 0
End With
End With
End With
xRg.Select
Application.ScreenUpdating = True
Set xRg = Nothing
End Sub
2. Depois, guarde e feche esta janela de código. Agora, ao selecionar ou clicar em células com dados, estas serão automaticamente ampliadas sob a forma de imagem. Veja a captura de ecrã:
Nota: As células selecionadas voltam automaticamente ao tamanho original assim que outras células forem selecionadas.
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