Note: The other languages of the website are Google-translated. Back to English
Inloggen  \/ 
x
or
x
Registreer  \/ 
x

or

Hoe de grootte van afbeeldingen aanpassen aan cellen in Excel?

Normaal ingevoegde afbeeldingen zweven over cellen, en meestal beslaat één afbeelding veel cellen. Als een werkblad een groot aantal afbeeldingen bevat, wilt u misschien elke afbeelding in één cel plaatsen. Maar hoe ga je ermee om? Er zijn eigenlijk verschillende lastige manieren om ons te helpen de grootte van afbeeldingen snel aan te passen aan de celgrootte.

Pas het formaat van een geselecteerde afbeelding aan zodat deze in een enkele cel past met VB Macro

Wijzig het formaat van ingevoegde afbeeldingen zodat ze in cellen passen met Kutools voor Excel

Tabblad Office Bewerking en browsen met tabbladen in Office inschakelen en uw werk veel gemakkelijker maken ...
Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%
  • Hergebruik alles: Voeg de meest gebruikte of complexe formules, grafieken en al het andere toe aan uw favorieten en gebruik ze in de toekomst snel opnieuw.
  • Meer dan 20 tekstfuncties: Nummer uit tekststring halen; Extract of verwijder een deel van teksten; Converteer cijfers en valuta's naar Engelse woorden.
  • Tools samenvoegen: Meerdere werkmappen en bladen in één; Meerdere cellen / rijen / kolommen samenvoegen zonder gegevens te verliezen; Voeg dubbele rijen en som samen.
  • Hulpmiddelen splitsen: Gegevens splitsen in meerdere bladen op basis van waarde; Eén werkmap naar meerdere Excel-, PDF- of CSV-bestanden; Eén kolom naar meerdere kolommen.
  • Plakken overslaan Verborgen / gefilterde rijen; Tel en som op achtergrondkleur; Stuur gepersonaliseerde e-mails in bulk naar meerdere ontvangers.
  • Superfilter: Maak geavanceerde filterschema's en pas deze toe op elk blad Soort per week, dag, frequentie en meer; Filteren door vetgedrukt, formules, commentaar ...
  • Meer dan 300 krachtige functies; Werkt met Office 2007-2019 en 365; Ondersteunt alle talen; Eenvoudig te implementeren in uw onderneming of organisatie.

pijl blauw rechts bel Pas het formaat van een geselecteerde afbeelding aan zodat deze in een enkele cel past met VB Macro


We kunnen VB-macro's toepassen om het formaat van een geselecteerde afbeelding te wijzigen zodat deze in een enkele cel past, maar niet handmatig de breedte en hoogte van een afbeelding wijzigen. U kunt het doen met de volgende stappen:

Stap 1: plaats de afbeeldingen in een werkblad en selecteer een afbeelding waarvan u het formaat wilt aanpassen zodat deze in een enkele cel past.

doc-formaat-afbeeldingen-passend-cellen1

Stap 2: Houd de knop ingedrukt ALT + F11 toetsen, en het opent de Microsoft Visual Basic voor toepassingen venster.

Stap 3: klik op Invoegen > Moduleen plak de volgende macro in het modulevenster.

VBA: pas het formaat van een geselecteerde afbeelding aan zodat deze in een cel past.

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 "Select a picture before running this macro."
End Sub

Stap 4: druk op de F5 toets om deze macro uit te voeren.

Stap 5: Herhaal de bovenstaande stappen om de grootte van andere afbeeldingen te wijzigen zodat ze in een enkele cel passen.

Nu worden alle ingevoegde afbeeldingen vergroot of verkleind en passen ze in cellen. Zie de volgende schermafbeelding:

doc-formaat-afbeeldingen-passend-cellen2

Opmerking:: U kunt het formaat van slechts één foto één keer wijzigen. Als u één keer meer dan één afbeelding selecteert, verschijnt er een waarschuwingsvenster.


pijl blauw rechts bel Wijzig het formaat van ingevoegde afbeeldingen zodat ze in cellen passen met Kutools voor Excel

Als je Kutools for Excel geïnstalleerd, kunt u zijn Afbeeldingen importeren hulpmiddel om het formaat van alle afbeeldingen aan te passen aan cellen of met een vaste hoogte tijdens het invoegen van afbeeldingen.

Kutools for Excel bevat meer dan 300 handige Excel-tools. Gratis te proberen zonder beperking binnen 30 dagen. Get it Now.

Stap 1: Selecteer de bereikcellen waarin u afbeeldingen wilt invoegen en klik op het Enterprise >Import / Export > Afbeeldingen importeren. Zie de volgende schermafbeelding:

doc-formaat-afbeelding-aanpassen-cel-1

Stap 2: In het Afbeeldingen importeren dialoogvenster, selecteer de invoegvolgorde in de vervolgkeuzelijst en klik op Toevoegen om afbeeldingen uit een bestand of map toe te voegen en klik vervolgens op Maat knop. Zie screenshot:

doc-formaat-afbeelding-aanpassen-cel-2

Stap 3: controleren Bijpassende celgrootte keuze. Dan klikken Ok > import om dialogen te sluiten. Zie screenshot:

doc-formaat-afbeelding-aanpassen-cel-3

Nu kunt u zien dat de afbeeldingen zijn ingevoegd om in de cellen te passen.

doc-formaat-afbeelding-aanpassen-cel-4

Opmerking:: U kunt ook de celhoogte en -breedte specificeren in stap 3 om het formaat van de afbeeldingen te wijzigen.

Mocht je hier meer over willen weten Afbeelding importeren functie, bezoek alstublieft CDL Super Session..


Aanverwant artikel:

Hoe kan ik het formaat van meerdere cellen wijzigen om snel afbeeldingen erboven in Excel te passen?


De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
  • Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
  • Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
  • Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
  • Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Gratis proefperiode van 30 dagen met volledige functies. 60 dagen geld-terug-garantie.
kte tabblad 201905

Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en vermindert elke dag honderden muisklikken voor u!
officetab onderkant
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Ranjith · 9 months ago
    Hi, Need this code disabling the lock aspect ratio
  • To post as a guest, your comment is unpublished.
    syedsunnygillani@gmail.com · 2 years ago
    Hi..
    perfact solution. But i want that function to work with command button. i need to make a command button to insert and auto resize to cell size. please help.
  • To post as a guest, your comment is unpublished.
    Shripad Lale · 4 years ago
    Brilliant! Works great! Just what I was looking for! Thank you!
  • To post as a guest, your comment is unpublished.
    claus · 5 years ago
    it works if the cells are not merged. unfortunately, I merged some cells and it fits only in the upper left cell which makes the photo very tiny.
  • To post as a guest, your comment is unpublished.
    Harry · 5 years ago
    Hi, I really love this macro that makes images fit cells, it really helped me with some work stuff. But does anyone know how to write this code for applescript? I have to use macs and the apple version of excel, Numbers, only uses applescript.
    Help!
    Many thanks,
    Harry
  • To post as a guest, your comment is unpublished.
    Carol · 5 years ago
    Thanks it did work but I have about 500 pictures so I don't want to do them one at a time - how do I do them all at the same time please?
  • To post as a guest, your comment is unpublished.
    Marcelo · 6 years ago
    Works!!
    But i have one question, i want to fit a img in a range of cells merged, how can i do it?
    • To post as a guest, your comment is unpublished.
      Nick · 4 years ago
      Public Sub FitPic()
      'https://www.extendoffice.com/documents/excel/1060-excel-resize-picture-to-fit-cell.html
      'Slight modification to resize into merged cells
      On Error GoTo NOT_SHAPE
      Dim PicWtoHRatio As Single
      Dim CellWtoHRatio As Single
      With Selection
      PicWtoHRatio = .Width / .Height
      End With
      With Selection.TopLeftCell
      CellWtoHRatio = .MergeArea.Width / .MergeArea.Height
      End With
      Select Case PicWtoHRatio / CellWtoHRatio
      Case Is > 1
      With Selection
      .Width = .TopLeftCell.MergeArea.Width
      .Height = .Width / PicWtoHRatio
      End With
      Case Else
      With Selection
      .Height = .TopLeftCell.MergeArea.Height
      .Width = .Height * PicWtoHRatio
      End With
      End Select
      With Selection
      .Top = .TopLeftCell.MergeArea.Top
      .Left = .TopLeftCell.MergeArea.Left
      .Placement = xlMoveAndSize
      End With
      Exit Sub
      NOT_SHAPE:
      MsgBox "Select a picture before running this macro."
      End Sub
    • To post as a guest, your comment is unpublished.
      Christina · 5 years ago
      [quote name="Marcelo"]Works!!
      But i have one question, i want to fit a img in a range of cells merged, how can i do it?[/quote]

      Marcelo did you get the updated marco for the merged cell? I am trying to do the same thing.

      thanks
      • To post as a guest, your comment is unpublished.
        mentex78 · 1 years ago
        I tried this macro last night and it adjust only the height. The width it doesn't incorrectly. Any Help please?
  • To post as a guest, your comment is unpublished.
    Monika · 7 years ago
    Thank you this was perfect!!
  • To post as a guest, your comment is unpublished.
    lucy · 7 years ago
    Instructions for Excel
  • To post as a guest, your comment is unpublished.
    Jim Abramczyk · 7 years ago
    FitPic macro noted above is Sweeeeeet!
    I took a bunch of pictures of garage sale items that eventually went to Salvation Army. I documented pictures and values in Excel tax purposes. This macro worked first time! :lol: