De grootte van een ingevoegde afbeelding automatisch aanpassen aan de celgrootte in Excel

Pdf downloaden

Pdf downloaden

In dit artikel:

Stappen

Gerelateerde artikelen

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 How.com.vn-artikel laat je zien hoe je afbeeldingen kunt invoegen in Excel en de grootte ervan kunt aanpassen zodat ze in de cellen passen.

Stappen

Pdf downloaden

1. 
   1
   Open je project in Microsoft Excel. Je kunt dit doen door in Excel te klikken op Bestand > Openen of door met de rechtermuisknop op het project te klikken en te kiezen voor Openen met > Excel.
2. 
   2
   Voeg een afbeelding in. Je kunt dit doen door te klikken op Invoegen > Afbeelding > Een afbeelding kiezen > Invoegen.
3. 
   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. 
   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 Afbeelding opmaken. Klik dan op het tabblad ‘Grootte en eigenschappen’ (een symbool met een groen vierkant met pijlen eromheen) en kies voor Verplaatsing en formaat gerelateerd aan cellen.
   • Je kunt tevens een VBA-code gebruiken nadat je enkele afbeeldingen ingevoegd hebt. Voeg de afbeeldingen in en druk op Alt + F11 om het VBA-venster te openen. Klik op Invoegen > Module en plak de volgende code:

   Public Sub FitPic()On Error GoTo NOT_SHAPEDim PicWtoHRatio As SingleDim CellWtoHRatio As SingleWith SelectionPicWtoHRatio = .Width / .HeightEnd WithWith Selection.TopLeftCellCellWtoHRatio = .Width / .RowHeightEnd WithSelect Case PicWtoHRatio / CellWtoHRatioCase Is > 1With Selection.Width = .TopLeftCell.Width.Height = .Width / PicWtoHRatioEnd WithCase ElseWith Selection.Height = .TopLeftCell.RowHeight.Width = .Height * PicWtoHRatioEnd WithEnd SelectWith Selection.Top = .TopLeftCell.Top.Left = .TopLeftCell.LeftEnd WithExit SubNOT_SHAPE:MsgBox 'Selecteer een afbeelding voor het uitvoeren van deze macro’End Sub

   • Druk op F5 om de code uit te voeren en herhaal het proces totdat alle afbeeldingen in de sheet in de cellen passen.
   Advertentie