Note: The other languages of the website are Google-translated. Back to English

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

Zoals we weten, ondersteunt Microsoft Excel het automatisch vergroten of verkleinen van de rijhoogte en kolombreedte van een cel om in gevulde inhoud te passen, zoals een lange tekstreeks. De opdracht AutoAanpassen rijhoogte en AutoAanpassen kolombreedte zijn echter niet geldig voor afbeeldingen, omdat een ingevoegde afbeelding niet in een specifieke cel staat.

Pas de grootte van cellen aan zodat ze in afbeeldingen passen met VBA

Wijzig het formaat van afbeeldingen zodat ze in cellen passen met Kutools voor Excel goed idee 3

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 Sorteer 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.

Pas de grootte van cellen aan zodat ze in afbeeldingen passen met VBA


Stel dat er twee grote afbeeldingen in een werkblad staan, zie dan de volgende schermafbeelding. Het kan zijn dat iemand de grootte van een cel wil wijzigen zodat deze in een afbeelding boven de cel past. Maar hoe realiseer je dat?

doc-formaat-cel-passend-afbeelding1

U kunt de grootte van elke cel natuurlijk automatisch aanpassen zodat er afbeeldingen boven de cellen passen. Het kan echter vervelend en tijdrovend zijn voor een aantal foto's. Eigenlijk kunnen we een VB-macro toepassen om de grootte van alle cellen aan te passen aan afbeeldingen erboven. U kunt het doen met de volgende stappen:

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

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

VBA: pas de grootte van meerdere cellen aan om in hun afbeeldingen te passen.

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 Sub

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

Als er nu in het huidige werkblad afbeeldingen zijn, wordt de grootte van de cel onder een afbeelding aangepast aan de afbeelding erboven. Zie de volgende schermafbeelding:

doc-formaat-cel-passend-afbeelding2


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

Als u de grootte van de cellen hebt aangepast zoals hieronder afgebeeld, en u de afbeeldingen wilt importeren en vergroten of verkleinen zodat ze in de celgrootte passen, hoe kunt u dit dan snel voor elkaar krijgen? In dit geval, Kutools for Excel's Importeer afbeeldingen hulpprogramma kan u helpen deze taak gemakkelijk uit te voeren.
doc formaat afbeelding aanpassen aan cel 1

Kutools for Excel, met meer dan 120 handige functies, maakt uw werk gemakkelijker. 

Na het installeren van Kutools voor Excel, doe het als volgt :(Gratis download Kutools voor Excel nu!)

1. klikken Enterprise > Import / Export > Afbeeldingen importeren. Zie screenshot:
doc formaat afbeelding aanpassen aan cel 2

2. In het knallen Afbeeldingen importeren dialoogvenster, kunt u de importvolgorde eerst specificeren in Importeer bestelling sectie en klik vervolgens op Toevoegen knop om afbeeldingen uit een map of als bestanden één voor één toe te voegen, dan kunt u zien dat de afbeeldingen in de lijst staan beeld sectie. Zie screenshot:
doc formaat afbeelding aanpassen aan cel 3

3. Dan klikken import knop om weer te geven Afbeeldingsgrootte importeren dialoogvenster en controleer Bijpassende celgrootte optie. Zie screenshot:
doc formaat afbeelding aanpassen aan cel 4

4. klikken OK > import om een ​​dialoogvenster weer te geven waarin u de cellen kunt selecteren waarvan u afbeeldingen wilt importeren. Zie screenshot:
doc formaat afbeelding aanpassen aan cel 5

5. klikken OK, en nu worden alle pirtcures in de cellen geïmporteerd en worden de afmetingen aangepast aan cellen.
doc formaat afbeelding aanpassen aan cel 6


Aanverwant artikel:
Hoe voeg ik meerdere afbeeldingen in een cel in Excel in?


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!
officetab onderkant
Comments (4)
Nog geen beoordelingen. Beoordeel als eerste!
Deze opmerking is gemaakt door de moderator op de site
Hallo, geweldige macro - kleine correctie met grotere OF GELIJK aan de 16 rijen If Rows(N).Top >= PictureTop Dan
Deze opmerking is gemaakt door de moderator op de site
Hallo Bedankt voor de macro. Ik kan echter niet aan het werk op mijn computer. Ik gebruik Excel 2011 voor Mac. Heb je ideeën? Bedankt
Deze opmerking is gemaakt door de moderator op de site
Geweldig en zo, maar ik had al foto's in cellen en door de eerste optie te gebruiken, wist ik 99% van alle foto's die al aanwezig waren. Niemand werd gespaard, behalve één foto die prachtig werd verkleind, behalve dat de breedte van de foto een beetje dun was.
Deze opmerking is gemaakt door de moderator op de site
Hoe ben je op de formule gekomen (Columns(PictureColumn).ColumnWidth = PictureWidth * (54.29 / 288))? Het is dichtbij, maar er is nog steeds een opening aan de rechterkant, zoals te zien is in je schermafbeelding.
Er zijn nog geen reacties geplaatst
Laat uw commentaar
Posten als gast
×
Beoordeel dit bericht:
0   Personages
Voorgestelde locaties