Hoppa till huvudinnehåll

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

Författare: Xiaoyang Senast ändrad: 2024-08-01

Normalt infogade bilder flyter över celler, och oftast täcker en bild många celler. Om ett kalkylblad har ett stort antal bilder kanske du vill placera varje bild i en enda cell. Men hur ska man hantera det? Det finns faktiskt flera knepiga sätt att hjälpa oss att ändra storlek på bilder så att de snabbt passar cellernas storlek.

Ändra storlek på en vald bild så att den passar en enda cell med VB-makro

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


pil blå höger bubbla Ändra storlek på en vald bild så att den passar en enda cell med VB-makro

Vi kan använda VB-makron för att ändra storlek på en vald bild så att den passar en enskild cell, men inte manuellt ändra storlek på en bilds bredd och höjd. Du kan göra det med följande steg:

Steg 1: Sätt in bilderna i ett kalkylblad och välj en bild där du ändrar storleken på den så att den passar en enda cell.

ursprungliga exempeldata

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

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

VBA: Ändra storlek på en vald bild så att den passar en cell.

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

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

Steg 5: Upprepa stegen ovan för att ändra storlek på andra bilder så att de passar en cell.

Nu ändras alla infogade bilder och passar in i celler. Se följande skärmdump:

ändra storlek på bilder för att passa celler efter att ha kört vba-kod

Anmärkningar: Du kan bara ändra storlek på en bild en gång. Om du väljer mer än en bild en gång dyker en dialogruta upp.


pil blå höger bubbla Ändra storlek på infogade bilder så att de passar celler med Kutools för Excel

Om du Kutools för Excel installerad kan du använda den Importera bilder verktyg för att ändra storlek på alla bilder så att de passar celler eller med fast höjd när du sätter in bilder.

Kutools för Excel innehåller mer än 300 praktiska Excel-verktyg. Gratis att prova utan begränsning på 30 dagar. Hämta nu.

Steg 1: Välj de intervallceller du vill infoga bilder och klicka på Kutools Plus >Import / Export > Importera bilder. Se följande skärmdump:

Steg 2: I Importera bilder dialogrutan, välj infoga ordning i listrutan och klicka Lägg till för att lägga till bilder du behöver från filen eller mappen och klicka sedan på Storlek knapp. Se skärmdump:

för att ställa in alternativen i dialogrutan Importera bilder

Steg 3: Kontrollera Matchande cellstorlek alternativ. Klicka sedan Ok > Importera för att stänga dialoger. Se skärmdump:

markera alternativet Matcha cellstorlek

Nu kan du se att bilderna är infogade för att passa cellerna.

ändra storlek på bilder för att passa celler efter användning av Kutools

Anmärkningar: Du kan också ange cellens höjd och bredd i steg 3 för att ändra storlek på bilderna.

Om du vill veta mer om detta Importera bild funktion, besök här..


Relaterad artikel:

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

Bästa kontorsproduktivitetsverktyg

🤖 Kutools AI Aide: Revolutionera dataanalys baserat på: Intelligent utförande   |  Generera kod  |  Skapa anpassade formler  |  Analysera data och generera diagram  |  Anropa Kutools funktioner.
Populära funktioner: Hitta, markera eller identifiera dubbletter   |  Ta bort tomma rader   |  Kombinera kolumner eller celler utan att förlora data   |   Rund utan formel ...
Superuppslag: Flera kriterier VLookup    VLookup med flera värden  |   VSök över flera ark   |   Fuzzy Lookup ....
Avancerad rullgardinslista: Skapa snabbt en rullgardinslista   |  Beroende rullgardinslista   |  Flervals-rullgardinslista ....
Kolumnhanterare: Lägg till ett specifikt antal kolumner  |  Flytta kolumner  |  Växla synlighetsstatus för dolda kolumner  |  Jämför intervall och kolumner ...
Utvalda funktioner: Rutnätsfokus   |  Designvy   |   Stor formelbar    Arbetsbok & Bladhanterare   |  Resursbibliotek (Automatisk text)   |  Datumväljare   |  Kombinera arbetsblad   |  Kryptera/Dekryptera celler    Skicka e-postmeddelanden efter lista   |  Superfilter   |   Specialfilter (filtrera fet/kursiv/genomstruken...) ...
Topp 15 verktygssatser12 text verktyg (lägga till text, Ta bort tecken, ...)   |   50+ Diagram Typer (Gantt Chart, ...)   |   40+ Praktiskt Formler (Beräkna ålder baserat på födelsedag, ...)   |   19 Införande verktyg (Infoga QR-kod, Infoga bild från sökväg, ...)   |   12 Konvertering verktyg (Siffror till ord, Valutaväxling, ...)   |   7 Slå ihop och dela verktyg (Avancerade kombinera rader, Dela celler, ...)   |   ... och mer

Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid.  Klicka här för att få den funktion du behöver mest...


Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare

  • Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
  • Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
  • Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!