Infoga bilder i Excel Det är enkelt att lägga in bilder i en cell, men det är svårt att få plats med dem. I den här artikeln ska jag visa dig ett par sätt att lägga in bilder i Excel automatiskt så att de passar i cellerna.

För att göra det tydligare ska jag använda mig av ett blad som innehåller information om blommor för en butik. Det finns tre kolumner, dessa är Namn, Pris, och Bild .

Arbetsbok för att öva

Sätt att infoga bilder i Excel som automatiskt anpassas till cellerna

1. Hur man infogar en bild i en Excel-cell

Markera först cellen där du vill för att infoga bilden Öppna nu Infoga flik>> Gå till Illustrationer >> välj Bilder >> välj sedan Denna enhet (om bilderna lagras på samma enhet)

Från enheten där bilderna är lagrade väljer du nu den bild som du vill Infoga. Slutligen klickar du på Infoga.

Bilden är infogad i cellen men passar inte in i cellen. För att bilden ska passa in i en cell måste du ändra storleken på bilden.

Läs mer: Excel VBA: Infoga bild från mapp (3 metoder)

2. Ändra storlek på en bild

I. Använd tangentbordsgenväg för att ändra storlek

Välj nu den bild som du vill ändra storlek på.

Håll den ALT-tangenten och dra bilden tills den passar in i cellen. ALT-tangenten passar in bilden i hela cellen.

Eller så kan du använda SHIFT-tangenten för att ändra storleken på bilden och placera den i en cell.

II. Använda bandet för att ändra storlek

Välj den bild som du vill ändra storlek och gå sedan till Bildformat .

Minska eller öka nu Höjd och Bredd från Bildformat .

Jag minskade både Höjd och Bredd för att få plats i en cell.

3. Anpassa bilder automatiskt i en cell med VBA

Öppna först Utvecklare fliken>> välj sedan Visual Basic.

Nu öppnas ett nytt fönster med Microsoft Visual Basic för tillämpningar kommer att visas.

Öppna sedan Infoga fliken>> välj sedan Modul.

Här kan Modul är öppen.

Skriv nu koden för att AutoFit bilder i modulen.

 Public Sub AutoFitPic() On Error GoTo NOT_SHAPE Dim PicWtoHRatio As Single Dim CellWtoHRatio As Single With Selection PicWtoHRatio = .Width / .Height End With With 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 "Välj en bild innan du kör det här makrot" End Sub 

Efter det, Spara koden och gå tillbaka till arbetsbladet. Öppna sedan Infoga flik>> Gå till Illustrationer >> välj Bilder >> välj sedan Denna enhet

Från enheten där bilderna är lagrade väljer du nu den bild som du vill Infoga. Slutligen klickar du på Infoga.

Bilden kommer att vara insatt i den markerade cellen.

Nu öppen Visa fliken>> gå sedan till Makroer >> välj Visa makron.

Nu kan en dialogruta kommer att dyka upp. Den visar den sparade Makronamn. Välj nu den AutoFitPic och arbetsbladet där jag vill tillämpa Makros. Slutligen klickar du på Kör.

Den infogade bilden kommer att AutoFit i cellen.

Efter att ha lagt in resten av bilderna och kört AutoFitPic Makro placerade bilderna i sina respektive celler.

Lås bilden med cellen i Excel

Låsning av bilder behövs när vi vill utföra funktioner på ett ark där bilder har infogats.

Om du vill låsa en bild markerar du bilden och högerklickar sedan på höger sida av musen. Välj sedan Format Bild

Från Format Bild >> välj Storlek & Egenskaper >> välj sedan Egenskaper. Markera alternativet Flyttar och storlek med cellerna.

Följde den Format Bild för att resten av bilderna ska kunna utföras Filter.

Öppna först Uppgifter fliken>> välj sedan Filter.

Efter att ha applicerat Filter Välj nu en kolumnrubrik och sedan högerklicka på musen för att se alternativen för sortering.

Jag valde Körsbärsblomma och Rose.

Nu visas de markerade raderna utan överlappande bilder eftersom jag redan har låst bilderna till Flytta och storlek med cellerna.

Slutsats

I den här artikeln förklarade jag flera sätt att infoga bilder i Excel automatiskt storlek för att passa celler. Jag hoppas att dessa olika tillvägagångssätt kommer att hjälpa dig att automatiskt passa bilder i en cell. För alla typer av förslag, idéer, feedback är du mycket välkommen. Känn dig fri att kommentera nedan.