Hur ändrar jag storlek på bilder så att de passar celler i Excel?
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
Ä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.
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:
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.
Ä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:
Steg 3: Kontrollera Matchande cellstorlek alternativ. Klicka sedan Ok > Importera för att stänga dialoger. Se skärmdump:
Nu kan du se att bilderna är infogade för att passa cellerna.
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
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!