Hoe past u meerdere cellen snel aan zodat ze perfect passen bij afbeeldingen in Excel?
Zoals bekend, ondersteunt Microsoft Excel automatisch het aanpassen van de Rijhoogte en Kolombreedte van een cel aan de ingevulde inhoud, zoals een lange tekstregel. De opdrachten Automatisch aanpassen voor Rijhoogte en Automatisch aanpassen voor Kolombreedte zijn echter niet geldig voor afbeeldingen, omdat een ingevoegde afbeelding niet in een specifieke cel is opgenomen.
Pas cellen aan zodat ze passen bij afbeeldingen met VBA
Pas afbeeldingen aan zodat ze passen in cellen met Kutools voor Excel
Pas cellen aan zodat ze passen bij afbeeldingen met VBA
Stel dat er twee grote afbeeldingen op een werkblad staan, zoals in de volgende schermafbeelding. Hoe past u een cel aan zodat deze precies onder een afbeelding past?
Uiteraard kunt u elke cel automatisch aanpassen zodat deze perfect aansluit bij de afbeelding erboven. Bij een groot aantal afbeeldingen kan dit echter tijdrovend en vervelend worden. Gelukkig kunt u met een VBA-macro alle cellen in één keer aanpassen, zodat ze exact passen bij de afbeeldingen erboven. Volg hiervoor deze stappen:
Stap 1: Druk op de toetsen ALT + F11 om het venster Microsoft Visual Basic for Applications te openen.
Stap 2: Klik op Invoegen > Module en plak de volgende macro in het modulevenster.
VBA: Pas meerdere cellen automatisch aan zodat ze perfect passen bij hun bijbehorende afbeeldingen.
Sub ResizePictureCells()
For Each Picture In ActiveSheet.DrawingObjects
PictureTop = Picture.Top
PictureLeft = Picture.Left
PictureHeight = Picture.Height
PictureWidth = Picture.Width
For N = 2 To 256
If Columns(N).Left > PictureLeft Then
PictureColumn = N - 1
Exit For
End If
Next N
For N = 2 To 65536
If Rows(N).Top > PictureTop Then
PictureRow = N - 1
Exit For
End If
Next N
Rows(PictureRow).RowHeight = PictureHeight
Columns(PictureColumn).ColumnWidth = PictureWidth * (54.29 / 288)
Picture.Top = Cells(PictureRow, PictureColumn).Top
Picture.Left = Cells(PictureRow, PictureColumn).Left
Next Picture
End SubStap 3: Druk op de toets F5 om deze macro uit te voeren.
In het huidige werkblad wordt, indien er afbeeldingen aanwezig zijn, de cel onder een afbeelding automatisch aangepast zodat deze perfect past bij de afbeelding erboven. Zie de volgende schermafbeelding:
Pas afbeeldingen aan zodat ze passen in cellen met Kutools voor Excel
Hebt u de celafmetingen al aangepast zoals in de onderstaande schermafbeelding en wilt u nu afbeeldingen importeren en automatisch aanpassen zodat ze perfect passen in die cellen? Dan helpt de functie Kutools voor Excel's Afbeeldingen importeren u snel en eenvoudig met deze taak.
Na installatie van Kutools voor Excel, gaat u als volgt te werk:
1. Klik op KUTOOLS PLUS > Importeren/Exporteren > Afbeeldingen importeren. Zie schermafbeelding:
2. In het verschijnende dialoogvenster Afbeeldingen importeren geeft u eerst de importvolgorde op in het gedeelte Importvolgorde en klikt u vervolgens op de knop Toevoegen om afbeeldingen uit een map of als afzonderlijke bestanden toe te voegen. Vervolgens ziet u de afbeeldingen vermeld staan in het gedeelte Afbeelding. Zie schermafbeelding:
3. Klik vervolgens op de knop Importeren om het dialoogvenster Afbeeldingsgrootte importeren weer te geven en vink daarna de optie Overeenkomende celgrootte aan. Zie schermafbeelding:
4. Klik op OK > Importeren om een dialoogvenster weer te geven waarin u de cellen kunt selecteren waarin u afbeeldingen wilt importeren. Zie schermafbeelding:
5. Klik op OK en alle afbeeldingen worden direct geïmporteerd in de cellen en automatisch aangepast om er perfect in te passen.
Gerelateerd artikel:
Hoe voegt u meerdere afbeeldingen in een cel in 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