Como aplicar zoom ou ampliar células selecionadas no Excel?
Como todos sabemos, o Excel possui um recurso de Zoom para nos ajudar a aumentar o tamanho do valor da célula em toda a planilha. Mas, às vezes, só precisamos aplicar zoom ou ampliar apenas as células selecionadas. Existem boas idéias para ampliarmos as células selecionadas apenas em uma planilha?
Aplique zoom ou amplie a célula selecionada com o código VBA
Aplique zoom ou amplie a célula selecionada com o código VBA
Pode haver nenhuma maneira direta de ampliarmos as células selecionadas no Excel, mas, aqui, posso apresentar um código VBA para lidar com esse trabalho como uma solução alternativa. Faça o seguinte:
1. Clique com o botão direito na guia da planilha em que deseja ampliar as células selecionadas automaticamente e escolha Ver código a partir do menu de contexto, no aberto Microsoft Visual Basic para aplicativos janela, copie e cole o seguinte código no módulo em branco:
Código VBA: amplie ou amplie 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. Em seguida, salve e feche esta janela de código, agora, ao selecionar ou clicar em algumas células de dados, as células serão ampliadas como uma imagem automaticamente, veja a imagem:
Note: As células selecionadas serão alteradas de volta ao tamanho original após a seleção de outras células.
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!