Hoe vergroot ik een afbeelding in Excel door erop te klikken?
Stel dat u een lijst met afbeeldingen in een kolom hebt ingevoegd en de afmetingen van de afbeeldingen hebt afgestemd op de celgrootte, zoals te zien is in de onderstaande schermafbeelding. Omdat de ingevoegde afbeeldingen mogelijk te klein lijken, wilt u ze tijdelijk vergroten voor bepaalde doeleinden. In dit artikel leest u hoe u een afbeelding vergroot door erop te klikken in Excel en deze bij een tweede klik weer terugzet naar de oorspronkelijke grootte.
Afbeelding vergroten bij klikken met VBA-code
Afbeelding vergroten bij klikken met VBA-code
Met de volgende VBA-code vergroot u een afbeelding in Excel zodra u erop klikt. Volg hiervoor de onderstaande stappen.
1. Klik met de rechtermuisknop op de afbeelding die u wilt vergroten — gewoon erop klikken — en kies vervolgens Macro toewijzen in het contextmenu. Zie schermafbeelding:
2. In het dialoogvenster Macro toewijzen klikt u op de knop Nieuw.
3. Plak in het venster Microsoft Visual Basic for Applications de onderstaande VBA-code tussen de regels Sub en End Sub. Zie schermafbeelding:
VBA-code: Afbeelding vergroten door erop te klikken in Excel
Dim shp As Shape
Dim big As Single, small As Single
Dim shpDouH As Double, shpDouOriH As Double
big = 3
small = 1
On Error Resume Next
Set shp = ActiveSheet.Shapes(Application.Caller)
With shp
shpDouH = .Height
.ScaleHeight 1, msoTrue, msoScaleFromTopLeft
shpDouOriH = .Height
If Round(shpDouH / shpDouOriH, 2) = big Then
.ScaleHeight small, msoTrue, msoScaleFromTopLeft
.ScaleWidth small, msoTrue, msoScaleFromTopLeft
.ZOrder msoSendToBack
Else
.ScaleHeight big, msoTrue, msoScaleFromTopLeft
.ScaleWidth big, msoTrue, msoScaleFromTopLeft
.ZOrder msoBringToFront
End If
End WithOpmerking: In de code kunt u de grote afmetingen van de afbeelding instellen met big = 3.
4. Druk vervolgens tegelijkertijd op Alt + Q om het venster Microsoft Visual Basic for Applications te sluiten.
Vanaf nu wordt de afbeelding vergroot naar de opgegeven grootte wanneer u erop klikt, en keert deze bij een tweede klik terug naar de Originele grootte, zoals op de onderstaande schermafbeeldingen te zien is.
Gerelateerde artikelen:
- Hoe koppel ik een afbeelding aan of binnen een cel in Excel?
- Hoe koppel ik dynamisch een Afbeelding invoegen of afbeelding aan een cel op basis van de celwaarde in Excel?
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