De grootte van een ingevoegde afbeelding automatisch aanpassen aan de celgrootte in Excel
Heb je een afbeelding of een logo dat je aan je Excelsheet wilt toevoegen om hem visueel aantrekkelijker te maken? Er is geen instelling waarmee de grootte van de afbeelding automatisch aangepast wordt aan de grootte van de cel, maar je kunt dit met enkele klikken zelf doen. Dit wikiHow-artikel laat je zien hoe je afbeeldingen kunt invoegen in Excel en de grootte ervan kunt aanpassen zodat ze in de cellen passen.
1. **Open je project in Microsoft Excel.** Je kunt dit doen door in Excel te klikken op  of door met de rechtermuisknop op het project te klikken en te kiezen voor .
2. **Voeg een afbeelding in.** Je kunt dit doen door te klikken op .
3. **Pas de afbeeldingsgrootte aan.** Wanneer je de afbeelding geselecteerd hebt zie je onder ‘Opmaak’ en ‘Hulpmiddelen voor afbeeldingen’ de optie ‘Grootte’ staan.
 Verander de Hoogte en Breedte om de grootte van de afbeelding aan te passen. Je kunt ook de hoeken van de afbeelding verslepen om de grootte ervan aan te passen.
4. **Zet de afbeelding vast in de cel.** De afbeelding die je ingevoegd hebt ‘zweeft’ standaard boven de cellen en wordt niet groter of kleiner zoals bij de cellen wel het geval is. Om dit te veranderen moet je de afbeelding of de cel vastzetten.

Klik met de rechtermuisknop op de afbeelding en kies voor . Klik dan op het tabblad ‘Grootte en eigenschappen’ (een symbool met een groen vierkant met pijlen eromheen) en kies voor .

Je kunt tevens een VBA-code gebruiken nadat je enkele afbeeldingen ingevoegd hebt. Voeg de afbeeldingen in en druk op  om het VBA-venster te openen. Klik op  en plak de volgende code:


Public Sub FitPic()
On Error GoTo NOT_SHAPE
Dim PicWtoHRatio As Single
Dim CellWtoHRatio As Single
With Selection
PicWtoHRatio = .Width / .Height
End With
With Selection.TopLeftCell
CellWtoHRatio = .Width / .RowHeight
End With
Select Case PicWtoHRatio / CellWtoHRatio
Case Is > 1
With Selection
.Width = .TopLeftCell.Width
.Height = .Width / PicWtoHRatio
End With
Case Else
With Selection
.Height = .TopLeftCell.RowHeight
.Width = .Height * PicWtoHRatio
End With
End Select
With Selection
.Top = .TopLeftCell.Top
.Left = .TopLeftCell.Left
End With
Exit Sub
NOT_SHAPE:
MsgBox 'Selecteer een afbeelding voor het uitvoeren van deze macro’
End Sub



Druk op  om de code uit te voeren en herhaal het proces totdat alle afbeeldingen in de sheet in de cellen passen.
{"url": "https://nl.wikihow.com/De-grootte-van-een-ingevoegde-afbeelding-automatisch-aanpassen-aan-de-celgrootte-in-Excel", "language": "nl"}