Hur ändrar jag storlek på flera celler så att de passar bilder snabbt i Excel?

Som vi vet stöder Microsoft Excel automatiskt storleksändring av radhöjd och kolumnbredd för en cell för att passa fyllt innehåll, till exempel en lång textsträng. Kommandot AutoFit radhöjd och kommandot AutoFit-kolumnbredd är inte giltigt för bild, eftersom en infogad bild inte finns i en specifik cell.

Ändra storlek på celler så att de passar bilder med VBA

Ändra storlek på bilder så att de passar celler med Kutools för Excel

Ändra storlek på celler så att de passar bilder med VBA

Antag att det finns två stora bilder i ett kalkylblad, se följande skärmdump. Någon kanske vill ändra storlek på en cell så att den passar en bild ovanför cellen. Men hur ska man inse det?

Naturligtvis kan du ändra storlek på varje cell automatiskt så att den passar bilder ovanför dem. Det kan dock vara tråkigt och tidskrävande för ett antal bilder. Egentligen kan vi använda ett VB-makro för att ändra storlek på alla celler så att de passar bilder ovanför dem. Du kan göra det med följande steg:

Steg 1: Håll ner ALT + F11 knapparna och det öppnar Microsoft Visual Basic för applikationer fönster.

Steg 2: Klicka Insert > Modulernaoch klistra in följande makro i modulfönstret.

VBA: Ändra storlek på flera celler så att de passar deras bilder.

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

Steg 3: Tryck på F5 för att köra detta makro.

Nu i det aktuella kalkylbladet, om det finns bilder, ändras cellen under en bild för att passa bilden ovanför. Se följande skärmdump:

Ändra storlek på bilder så att de passar celler med Kutools för Excel

Om du har justerat storleken på cellerna som visas nedan, och sedan vill importera och ändra storlek på bilderna så att de passar cellstorlekarna, hur kan du snabbt få det gjort? I detta fall, Kutools för Excel's Importera bilder verktyget kan hjälpa dig att enkelt hantera det här jobbet.

När du har installerat Kutools för Excel, gör så här:

1. klick Kutools Plus > Import / Export > Importera bilder. Se skärmdump:

2. I popping Importera bilder i dialogrutan kan du ange importorder först i Importera order och klicka sedan på Lägg till knappen för att lägga till bilder från mappen eller som filer en efter en, då kan du se att bilderna finns i listan Bild sektion. Se skärmdump:

3. Klicka sedan Importera knappen för att visa Importera bildstorlek dialogrutan och kontrollera sedan Matchande cellstorlek alternativ. Se skärmdump:

4. klick OK > Importera för att visa en dialogruta för att välja de celler som du vill importera bilder. Se skärmdump:

5. klick OK, och nu importeras alla pirkurer till cellerna och ändrar storleken på deras storlek för att passa celler.

Relaterad artikel:
Hur infogar jag flera bilder i cellen i Excel?