Pdf downloaden
Pdf downloaden
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.
Stappen
-
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 .
-
Voeg een afbeelding in. Je kunt dit doen door te klikken op Invoegen > Afbeelding > Een afbeelding kiezen > Invoegen .
-
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.
-
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:
- Druk op F5 om de code uit te voeren en herhaal het proces totdat alle afbeeldingen in de sheet in de cellen passen.
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
Advertentie
Advertentie