Hoe vergroot of versterkt u geselecteerde cellen in Excel?
Zoals we allemaal weten, beschikt Excel over een zoomfunctie waarmee de weergave van het hele werkblad – inclusief celwaarden – kan worden vergroot. Maar wat als u alleen de geselecteerde cellen wilt vergroten of visueel versterken? Bestaan er hiervoor eenvoudige en effectieve oplossingen?
Vergroot of versterk de geselecteerde cel met VBA-code
Vergroot of versterk de geselecteerde cel met VBA-code
Er is mogelijk geen directe manier om geselecteerde cellen in Excel te vergroten, maar ik kan u een VBA-code aanbieden als tijdelijke oplossing voor deze taak. Volg deze stappen:
1. Klik met de rechtermuisknop op het bladtab waarop u automatisch de geselecteerde cellen wilt vergroten en kies vervolgens Code weergeven in het contextmenu. Plak in het geopende venster Microsoft Visual Basic for Applications de volgende code in de lege module:
VBA-code: Vergroot of versterk de geselecteerde cellen:
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. Sluit het codavenster daarna via Opslaan en sluiten. Vanaf nu worden de cellen automatisch als afbeelding vergroot zodra u gegevenscellen selecteert of aanklikt. Zie de schermafbeelding:
Opmerking: De geselecteerde cellen worden automatisch teruggezet naar de oorspronkelijke grootte zodra u andere cellen selecteert.
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins