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
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?
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:
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.
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:
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:
3. Dan klikken import knop om weer te geven Afbeeldingsgrootte importeren dialoogvenster en controleer Bijpassende celgrootte optie. Zie screenshot:
4. klikken OK > import om een dialoogvenster weer te geven waarin u de cellen kunt selecteren waarvan u afbeeldingen wilt importeren. Zie screenshot:
5. klikken OK, en nu worden alle pirtcures in de cellen geïmporteerd en worden de afmetingen aangepast aan cellen.
Afbeeldingen importeren die overeenkomen met celgrootte
Aanverwant artikel:
Hoe voeg ik meerdere afbeeldingen in een cel in Excel in?
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
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 honderden muisklikken voor u elke dag!