Hoe vergroot of verkleint u een afbeelding in Excel met slechts één klik?
Stel dat er meerdere afbeeldingen met verschillende afmetingen op een werkblad staan. Is er een manier om ze allemaal in één keer naar dezelfde grootte te vergroten of te verkleinen? Hoewel Excel hier geen ingebouwde functie voor biedt, introduceer ik in dit artikel een VBA-code waarmee u met één klik alle afbeeldingen op het werkblad eenvoudig kunt aanpassen.
Afbeeldingen vergroten en verkleinen met één klik via VBA
Afbeeldingen vergroten en verkleinen met één klik via VBA
Volg onderstaande stappen om afbeeldingen met één klik te vergroten of te verkleinen.
1. Klik met de rechtermuisknop op het werkbladtabblad waarop u de afbeeldingen wilt wijzigen en selecteer Code weergeven in het contextmenu.
2. Plak in het venster van Microsoft Visual Basic for Applications dat verschijnt, de onderstaande code in het lege script.
VBA: Afbeeldingen vergroten en verkleinen met één klik
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'UpdatebyEntendoffice20161111
Application.ScreenUpdating = False
Dim xRg As Range, sPic As Shape
For Each sPic In ActiveSheet.Shapes
If Target.Column > 1 Then
Set xRg = Target.Offset(, -1)
With sPic
If TypeName(.OLEFormat.Object) = "Picture" Then
If .TopLeftCell.Address = xRg.Address Then
.Height = 350
.Width = 250
End If
End If
End With
ElseIf Target.Column = 1 Then
With sPic
If TypeName(.OLEFormat.Object) = "Picture" Then
.Height = 60
.Width = 60
End If
End With
End If
Next sPic
Application.ScreenUpdating = True
End Sub
3. Sla de code op en sluit dit venster. Zodra u op een willekeurige cel in kolom A klikt, worden alle afbeeldingen automatisch verkleind. Zie de schermafbeelding:
4. Klik op de cel rechtsboven de afbeelding om deze direct te vergroten. Zie de schermafbeelding:
Kutools voor Excel– Geef Excel een boost met meer dan 300 essentiële hulpmiddelen, waardoor uw werk sneller en eenvoudiger verloopt, en profiteer van AI-functies voor slimmere gegevensverwerking en productiviteit.Nu verkrijgen
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