Hoe wijzigt u automatisch alle afbeeldingen in Excel naar „Verplaatsen en meeschalen met cellen”?
Bij het werken met afbeeldingen in Excel zult u merken dat ingevoegde afbeeldingen standaard zijn ingesteld op „Verplaatsen, maar niet meeschalen met cellen”. Dit betekent dat wanneer u de celafmetingen aanpast—bijvoorbeeld door de kolombreedte of rijhoogte te wijzigen—de afbeeldingen hun oorspronkelijke grootte behouden en niet meeschalen met de bijgewerkte celindeling. Voor gebruikers die een naadloze uitlijning van afbeeldingen bij celwijzigingen nodig hebben, zoals bij het ontwerpen van dashboards, rapporten of visuele overzichten, kan dit standaardgedrag onhandig zijn en tijdrovend om handmatig te corrigeren, vooral als uw werkblad veel afbeeldingen bevat.
Om dit probleem op te lossen, biedt Excel de mogelijkheid om de eigenschap van elke afbeelding zo in te stellen dat deze niet alleen meeverplaatst, maar ook automatisch meeschaalt met de cel (‘Verplaatsen en meeschalen met cellen’). Het handmatig aanpassen van deze instelling voor elke afbeelding is echter tijdrovend. Dit artikel presenteert een efficiënte methode om alle afbeeldingen in een werkblad automatisch in te stellen op ‘Verplaatsen en meeschalen met cellen’ met behulp van eenvoudige VBA-code. Deze techniek is vooral waardevol in scenario’s waarin u regelmatig rijen en kolommen met afbeeldingen herstructureert, filtert of aanpast, zodat uw visuele elementen altijd perfect blijven uitgelijnd met uw gegevens.
Alle afbeeldingen automatisch instellen op „Verplaatsen en meeschalen met cellen” met VBA-code
Alle afbeeldingen automatisch instellen op „Verplaatsen en meeschalen met cellen” met VBA-code
Als uw werkblad meerdere afbeeldingen bevat en u wilt dat al deze afbeeldingen consistent meeschalen met hun bijbehorende cellen, dan kunt u de volgende VBA-code gebruiken om alle afbeeldingsobjecten in het actieve werkblad direct in te stellen op ‘Verplaatsen en meeschalen met cellen’. Deze geautomatiseerde oplossing bespaart u tijd door herhaalde handmatige stappen te elimineren, verhoogt de efficiëntie van uw werkproces en voorkomt dat u per ongeluk afbeeldingen over het hoofd ziet.
Hier volgt een stapsgewijze handleiding voor het toepassen van deze VBA-oplossing:
1. Open het werkblad met de afbeeldingen die u wilt bijwerken, zodat ze samen met de cellen verplaatsen en meeschalen. Start vervolgens de Microsoft Visual Basic for Applications-editor door op uw toetsenbord Alt + F11 in te drukken. Deze sneltoets werkt in de meeste versies van Excel.
Opmerking: als u het tabblad Ontwikkelaar niet ziet, kunt u dit inschakelen via Excel-opties. Werkt u met een beveiligd of gedeeld werkboek? Dan kunnen sommige functies beperkt zijn. Zorg er daarom voor dat u de benodigde bewerkingsrechten heeft.
2. Klik in het venster van Microsoft Visual Basic for Applications op Invoegen > Module om een nieuwe module te maken. Kopieer en plak vervolgens de volgende VBA-code in het codovenster:
VBA-code: alle afbeeldingen instellen op „Verplaatsen en meeschalen met cellen”
Sub MoveAndSizeWithCells()
Dim xPic As Picture
On Error Resume Next
Application.ScreenUpdating = False
For Each xPic In ActiveSheet.Pictures
xPic.Placement = xlMoveAndSize
Next
Application.ScreenUpdating = True
End SubTips:
- Zorg ervoor dat u in het juiste werkblad werkt voordat u de macro uitvoert, aangezien de code alle afbeeldingen in het huidige werkblad beïnvloedt.
- Als uw werkblad andere objecten bevat, zoals vormen, grafieken of pictogrammen, richt deze code zich uitsluitend op afbeeldingsobjecten en laat de overige objecten ongewijzigd.
3. Druk op F5 of klik op de knop Uitvoeren in de VBA-editor om de code uit te voeren. Na uitvoering worden alle afbeeldingen in uw actieve werkblad automatisch ingesteld op „Verplaatsen en meeschalen met cellen”. U hoeft de afbeeldingen niet één voor één te selecteren — de code verwerkt ze allemaal tegelijk.
Deze oplossing vermindert handmatige inspanning tot een minimum en zorgt voor een consistente opmaak, vooral bij frequente aanpassingen van rijen of kolommen. Als u merkt dat sommige afbeeldingen niet zoals verwacht zijn aangepast, controleer dan of Excel deze objecten herkent als afbeeldingen—ze moeten als „Afbeelding” worden weergegeven in het Selectievenster, niet als een ander objecttype.
Als u tijdens het proces een foutmelding krijgt, controleer dan of u per ongeluk geen grafiekblad hebt geselecteerd en of de afbeeldingen niet vergrendeld of gegroepeerd zijn. In de meeste gevallen levert het uitvoeren van de code zoals hierboven beschreven precies het gewenste resultaat op.
Overweeg uw werkboek op te slaan voordat u VBA uitvoert, zodat uw werkproces nog vlotter verloopt. Wilt u dit proces regelmatig herhalen? Wijs de macro dan toe aan een knop voor directe toegang met één klik.
Een praktisch alternatief voor gebruikers die zich ongemakkelijk voelen bij VBA, is het handmatig aanpassen van de eigenschappen van elke afbeelding: klik met de rechtermuisknop op de afbeelding, selecteer Afbeelding opmaken, kies Eigenschappen en vink vervolgens ‘Verplaatsen en meeschalen met cellen’ aan. Deze methode is echter alleen geschikt voor werkbladen met een beperkt aantal afbeeldingen.
Een andere gerelateerde methode is het gebruik van het Excel VBA-functievenster „Selectievenster” om alle afbeeldingen te filteren en snel te selecteren, waarna u hun eigenschappen handmatig kunt aanpassen — voor nog meer controle in complexe lay-outs met diverse objecttypen.
Gerelateerde artikelen:
- Hoe centreert u een afbeelding in een Excel-cel?
- Hoe controleert u of een cel een afbeelding bevat in Excel?
- Hoe kunt u een afbeelding invoegen of dynamisch weergeven in een cel op basis van de celwaarde in Excel?
- Hoe vergroot u een afbeelding in Excel wanneer u erop klikt?
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