Hoppa till huvudinnehåll

Excel-bilder: Infoga, ändra, ta bort flera bilder eller bilder i Excel

I denna handledning kommer vi att prata om hur man infogar flera bilder i celler och ändrar storlek på dem så att de passar cellstorleken, hur man infogar bilden i kommentar, sidhuvud eller sidfot, hur man infogar bilder från webbadresser och så vidare. Det förklarar också hur man sparar, byter namn på, tar bort flera bilder som du behöver i Excel.

Innehållsförteckning:

1. Infoga bilder eller bilder i kalkylbladet från dator, webb eller OneDrive

2. Lås bilder eller bilder i Excel-cellen

3. Infoga flera bilder eller bilder i Excel

4. Infoga flera bilder eller bilder som matchar deras namn i celler

5. Infoga eller visa bilder eller bilder från webbadresser

6. Infoga eller visa bilder eller bilder från filvägar

7. Infoga bild eller bild i en kommentar

8. Sätt in bild eller bild i sidhuvudet eller sidfoten

9. Infoga samma bild eller bild i flera kalkylblad

10. Infoga bild eller bild bakom cellinnehållet

11. Infoga ett cellområde som bild- eller bildformat i Excel

12. Infoga bild eller bild baserat på cellvärde dynamiskt

13. Exportera eller spara alla bilder eller bilder från en Excel-fil

14. Byt namn på bildnamn i en mapp baserat på cellistan i Excel

15. Förstora eller krympa bilden när du klickar på den

16. Flytta alltid en bild när du bläddrar i kalkylbladet

17. Radera bilder eller bilder från aktivt ark / ett cellområde


Infoga bilder eller bilder i kalkylbladet från dator, webb eller OneDrive

Alla Excel-versioner har stöd för att infoga bilder eller bilder från datorn, men om du vill infoga bilderna från webben eller OneDrive bör du ha Excel 2013 och senare versioner.

Infoga bilder eller bilder från datorn

Det är lätt för de flesta av oss att infoga bilder som lagras på datorn i kalkylbladet. Gör så här:

1. Klicka på var du vill infoga bilder i kalkylbladet.

2. Klicka sedan Insert > Bilder > Denna apparat, se skärmdump:

3. I poppade ut Infoga bild öppnar mappen som innehåller bilderna och håller sedan ned ctrl för att välja de bilder som du vill infoga, se skärmdump:

4. Klicka sedan Insert knappen har de valda bilderna infogats i arket. Nu kan du justera eller ändra storlek på bilderna till de celler du behöver, se skärmdump:


Infoga bilder eller bilder från webben eller OneDrive

Om du har Excel 2013 eller senare versioner kan du infoga bilderna från webben eller One Drive, gör så här:

1. Klicka på var du vill infoga bilder i kalkylbladet.

2. Klicka sedan Insert > Bilder > Online bilder, se skärmdump:

3. Följande fönster visas. I Online bilder skriv in det du letar efter i textrutan och tryck sedan på ange nyckel. Alla motsvarande bilder söks på en gång, se skärmdump:

4. Välj sedan de bilder du vill ha och klicka sedan på Insert knapp. När du har satt in bilderna, ändra storlek eller justera bilderna till den position du behöver.

Tips:

1. För att söka i vissa specifika bilder kan du filtrera de hittade bilderna efter storlek, typ, layout eller färg efter behov.

2. Förutom att infoga bilder från Bing-sökning kan du också infoga bilder som är lagrade på din OneDrive. Klicka på i fönstret nedan OneDrive längst ned till vänster i fönstret och välj sedan de bilder du vill infoga.


Lås bilder eller bilder i Excel-cellen

Normalt, efter att du har infogat bilderna i celler, när du ändrar storlek, filtrerar eller döljer cellerna som innehåller bilden, kommer inte bilden att ändras eller filtreras tillsammans med den cellen som visas nedan.

I det här fallet bör du låsa bilden i cellen så att den kan ändras, filtreras eller döljas tillsammans med cellen, gör med följande steg:

1. Klicka för att välja en bild och tryck på Ctrl + A för att välja alla bilder i kalkylbladet.

2. Högerklicka sedan på en bild och välj Storlek och egenskaper från snabbmenyn, se skärmdump:

3. I den utökade Formatera bild under rutan Våra Bostäder avsnitt, välj Flytta och storlek med celler alternativ, se skärmdump:

4. Stäng sedan Formatera bild ruta. Nu, när du ändrar storlek, filtrerar eller döljer cellerna, kommer bilderna också att flyttas, filtreras eller döljas.


Infoga flera bilder eller bilder i Excel

Ibland kan du behöva infoga flera bilder i cellerna och ändra storlek på dem så att de passar cellstorleken automatiskt utan att ändra storlek och dra bilderna. Här presenterar jag två sätt att lösa detta jobb i Excel.

Infoga flera bilder eller bilder och ändra storlek på dem så att de passar celler med VBA-kod

Följande VBA-kod kan hjälpa dig att infoga flera bilder i celler baserat på cellstorlek. Gör så här:

1. Justera cellstorleken som du vill lägga till bilden och välj sedan cellerna.

2. Håll sedan ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

3. Klicka Insert > Modulernaoch klistra in följande makro i Modulerna fönster.

VBA-kod: Infoga flera bilder baserat på cellstorleken

Sub InsertPictures()
'Updateby Extendoffice
Dim PicList() As Variant
Dim PicFormat As String
Dim Rng As Range
Dim sShape As Shape
On Error Resume Next
PicList = Application.GetOpenFilename(PicFormat, MultiSelect:=True)
xColIndex = Application.ActiveCell.Column
If IsArray(PicList) Then
    xRowIndex = Application.ActiveCell.Row
    For lLoop = LBound(PicList) To UBound(PicList)
        Set Rng = Cells(xRowIndex, xColIndex)
        Set sShape = ActiveSheet.Shapes.AddPicture(PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height)
        xRowIndex = xRowIndex + 1
    Next
End If
End Sub

4. Tryck sedan på F5 nyckel för att köra den här koden. I Öppen välj den mapp som innehåller bilderna, välj sedan bilderna du vill infoga och klicka sedan på Öppen och alla valda bilder har infogats i ditt val baserat på cellstorlek. Se skärmdump:


Infoga flera bilder eller bilder och ändra storlek på dem så att de passar celler med en kraftfull funktion

Om du inte känner till VBA-koden kan du här använda en strömfunktion - Importera bilder of Kutools för Excel. Med den här användbara funktionen kan du snabbt och enkelt importera flera bilder till cellerna.

När du har installerat Kutools för Excel, gör med följande steg:

1. Klicka Kutools Plus > Import Export > Importera bilder, se skärmdump:

2. I poppade ut Importera bilder dialogrutan, gör följande:

  • Ange bildordningen i listrutan Importera order, du kan välja Fyll vertikalt cell efter cell or Fyll horisontellt cell efter cell;
  • Klicka sedan Lägg till för att välja bildfiler eller mapp för att lägga till bilderna i Bildlista;
  • Klicka på Importera storlek knappen, i Importera bildstorlek dialogrutan väljer du Matchande cellstorlek alternativ.

3. När du har gjort inställningarna klickar du på Importera knappen, och nu, en annan Importera bilder poppar ut, ange destinationscellerna du ska importera bilden till, se skärmdump:

4. Klicka sedan OK -knappen har alla valda bilder infogats för att matcha storleken på specifika celler som visas nedan:


Infoga flera bilder eller bilder som matchar deras namn i celler

Om du har en lista med produktnamn i en kolumn och nu måste du infoga motsvarande bilder i en annan kolumn enligt nedanstående skärmdump. Att infoga bilderna och dra dem till varje position en efter en kommer att slösa mycket tid, detta avsnitt kommer jag att prata om några snabba metoder.

Infoga flera bilder eller bilder som matchar deras namn med VBA-kod

Följande VBA-kod kan hjälpa dig att infoga flera bilder som matchar deras namn snabbt, gör så här:

1. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. Klicka Insert> Modulernaoch klistra in följande makro i Modulerna fönster.

VBA-kod: Infoga flera bilder som matchar deras namn

Sub InserPictureByName()
'Updateby Extendoffice
Dim xFDObject As FileDialog
Dim xStrPath, xStrPicPath As String
Dim xRgName, xRgInser, xRg, xRgI As Range
Dim xFNum As Integer
Set xFDObject = Application.FileDialog(msoFileDialogFolderPicker)
With xFDObject
    .Title = "Please select the folder:"
    .InitialFileName = Application.ActiveWorkbook.Path
    .Show
    .AllowMultiSelect = False
End With
On Error Resume Next
xStrPath = ""
xStrPath = xFDObject.SelectedItems.Item(1)
If xStrPath = "" Then
Exit Sub
End If
Set xRgName = Application.InputBox("Please select the cells contain the image name:", "Kutools for Excel", , , , , , 8)
If xRgName Is Nothing Then
    MsgBox "No cells are select, exit operation! ", vbInformation, "Kutools for Excel"
    Exit Sub
End If
Set xRgInser = Application.InputBox("Please select the cells to output the images", "Kutools for Excel", , , , , , 8)
If xRgInser Is Nothing Then
    MsgBox " No cells are select, exit operation.! ", vbInformation, "Kutools for Excel"
    Exit Sub
End If
For xFNum = 1 To xRgName.Count
    Set xRg = xRgName.Item(xFNum)
    Set xRgI = xRgInser.Item(xFNum)
    xStrPicPath = xStrPath & "\" & xRg.Text & ".png"
    If Not Dir(xStrPicPath, vbDirectory) = vbNullString Then
        With xRgI.Parent.Pictures.Insert(xStrPicPath)
            .Left = xRgI.Left
            .Top = xRgI.Top
            .ShapeRange.LockAspectRatio = msoFalse
            .ShapeRange.Height = 60
            .ShapeRange.Width = 60
        End With
    End If
Next
End Sub

Anmärkningar: I koden ovan kan du ändra bildens höjd och bredd i skripten “.ShapeRange.Höjd = 60",".ShapeRange.Width = 60”Efter ditt behov.

3. Tryck sedan på F5 för att köra den här koden och i det öppnade fönstret, välj den mapp som innehåller bilderna du vill infoga, se skärmdump:

4. Och klicka sedan på OK knappen, en snabbruta dyker upp, välj cellerna som innehåller bildnamnen, se skärmdump:

5. Fortsätt klicka OK -knappen och en annan snabbruta följs, välj de celler som du vill mata ut bilderna, se skärmdump:

6. Äntligen klickar du på OK, och bilderna har införts i cellerna baserat på deras namn på en gång, se skärmdump:


Infoga flera bilder eller bilder som matchar deras namn med en användbar funktion

Om du har Kutools för Excel, med dess Matcha importera bilder funktionen kan du infoga bilderna baserat på bildnamnen snabbt och enkelt.

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

1. Klicka Kutools Plus > Import Export > Matcha importera bilder, se skärmdump:

2. I poppade ut Matcha importbild dialogrutan, gör följande:

  • Ange bildordningen i listrutan Importera order, du kan välja Fyll vertikalt cell efter cell or Fyll horisontellt cell efter cell;
  • Sedan från Matchintervall textruta, välj de bildnamn som du vill infoga bilder baserat på;
  • Och klicka sedan på Lägg till för att välja bildfiler eller mapp för att lägga till bilderna i Bildlista;
  • Därefter bör du ange bildstorleken. var god klicka Importera storlek knappen, i Importera bildstorlek dialogrutan väljer du en bildstorlek efter behov.

3. När du har gjort inställningarna klickar du på Importera välj en cell eller en lista med celler för att hitta bilderna från den poppade ut Matcha importera bilder dialogruta, se skärmdump:

4. Klicka sedan OK, och alla bilder som namnen matchade med cellvärdena har infogats, se skärmdump:


Infoga eller visa bilder eller bilder från webbadresser

Har du någonsin försökt visa eller infoga bilderna från en lista med webbadresser? Det kan finnas att det inte finns någon annan bra metod för att infoga bilderna direkt i Excel, men du kan använda en kod eller ett tredjepartsverktyg för att hantera det.

Infoga eller visa bilder eller bilder från webbadresser med VBA-kod

Använd följande VBA-kod för att infoga bilderna baserat på en lista med webbadresser.

1. Justera först den intilliggande cellstorleken som du vill hitta bilderna.

2. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

3. Klicka Insert > Modulernaoch klistra in följande makro i Modulerna fönster.

VBA-kod: Infoga bilder från en lista med webbadresser

Sub URLPictureInsert()
'Updateby Extendoffice
Dim Pshp As Shape
Dim xRg As Range
Dim xCol As Long
On Error Resume Next
Application.ScreenUpdating = False
Set Rng = ActiveSheet.Range("A2:A5")
For Each cell In Rng
filenam = cell
ActiveSheet.Pictures.Insert(filenam).Select
Set Pshp = Selection.ShapeRange.Item(1)
If Pshp Is Nothing Then GoTo lab
xCol = cell.Column + 1
Set xRg = Cells(cell.Row, xCol)
With Pshp
.LockAspectRatio = msoFalse
If .Width > xRg.Width Then .Width = xRg.Width * 2 / 3
If .Height > xRg.Height Then .Height = xRg.Height * 2 / 3
.Top = xRg.Top + (xRg.Height - .Height) / 2
.Left = xRg.Left + (xRg.Width - .Width) / 2
End With
lab:
Set Pshp = Nothing
Range("A2").Select
Next
Application.ScreenUpdating = True
End Sub

Anmärkningar: I ovanstående kod, A2: A5 är cellintervallet som innehåller URL-adresserna du vill extrahera bilderna, bör du ändra cellreferenser efter dina behov.

4. Tryck sedan på F5 nyckel för att köra den här koden, kommer de matchande bilderna att extraheras från webbadresserna till intilliggande kolumn och placeras i mitten av celler, se skärmdump:


Infoga eller visa bilder eller bilder från webbadresser med en fantastisk funktion

Kutools för Excel har en fantastisk funktion - Infoga bilder från sökväg (URL). Med det här verktyget extraheras motsvarande bilder från webbadresserna snabbt och enkelt.

När du har installerat Kutools för Excel, gör med följande steg:

1. Klicka Kutools > Insert > Infoga bilder från sökväg (URL), se skärmdump:

2. I poppade ut Infoga bilder från sökväg (URL) dialogrutan, ställ in följande åtgärder:

  • Välj listan med URL-celler och ett cellområde där du vill placera bilderna;
  • Ange storleken på bilderna som du behöver från bild~~POS=TRUNC sektion.

3. Och klicka sedan på Ok -knappen, och alla bilder har extraherats från webbadresserna, se skärmdump:


Infoga eller visa bilder eller bilder från filvägar

Om du behöver infoga bilderna från filsökvägen, finns här också lösningarna för dig.

Infoga eller visa bilder eller bilder från filvägar med VBA-kod

Du kan använda följande VBA-kod för att infoga bilder baserat på bildfilens sökvägar.

1. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. Klicka Insert > Modulernaoch klistra sedan in följande kod i Modulerna Fönster.

VBA-kod: Infoga bilder från en rad filvägar

Sub InsertPicFromFilePath()
'Updateby Extendoffice
    Dim xRg As Range
    Dim xCell As Range
    Dim xVal As String
    On Error Resume Next
    Set xRg = Application.InputBox("Please select file path cells:", "KuTools for Excel", Selection.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    For Each xCell In xRg
        xVal = xCell.Value
        If xVal <> "" Then
            ActiveSheet.Shapes.AddPicture xCell.Value, msoFalse, msoTrue, _
            xCell.Offset(0, 1).Left, xCell.Top, xCell.Height, _
            xCell.Height
        End If
    Next
    Application.ScreenUpdating = True
End Sub

3. När du har infogat ovanstående kod trycker du på F5 nyckel för att köra den här koden, då visas en snabbruta, välj cellerna i filvägen, se skärmdump:

4. Klicka sedan OK -knappen har alla bilder baserade på filvägarna visats i nästa kolumn som följande skärmdump visas:


Infoga eller visa bilder eller bilder från filvägar med en fantastisk funktion

Kutools för ExcelÄr Infoga bilder från sökväg (URL) funktionen kan också hjälpa dig att visa de relativa bilderna från filvägen.

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

1. Klicka Kutools > Insert > Infoga bilder från sökväg (URL), i dialogrutan poppade ut, ange filvägsintervallet, intervall för utmatning av bilder, bildstorlek efter behov, se skärmdumpar:

2. När du har ställt in alternativen klickar du på Ok knappen, kommer bilderna att införas i de valda cellerna på en gång, se skärmdump:


Infoga bild eller bild i en kommentar

Kanske är det enkelt att infoga en bild i en cell, men ibland kanske du vill infoga en bild i en kommentarruta, hur hanterar du den här uppgiften?

1. Markera och högerklicka på cellen där du vill infoga kommentar och välj sedan Infoga kommentar, se skärmdump:

tips: Om du har lagt in en kommentar kan du ignorera det här steget.

2. Håll muspekaren över kanterna på kommentarrutan tills du ser att markören blir en fyrpilsikon. Och högerklicka sedan och välj Formatera kommentar alternativ, se skärmdump:

3. I poppade ut Formatera kommentar dialogrutan, klicka Färger och linjer fliken och välj sedan Fyllningseffekter från Färg rullgardinsmeny, se skärmdump:

4. Sedan, i det följande Fyllningseffekter dialogrutan, klicka Bild fliken och klicka på Välj bild för att välja en bild som du vill infoga, se skärmdump:

5. Och klicka sedan på OK > OK, har bilden infogats i kommentarrutan, se skärmdump:


Infoga bild eller bild i sidhuvud eller sidfot

Om du vill infoga en bild i sidhuvudet eller sidfoten i ditt Excel-kalkylblad kan stegen i det här avsnittet hjälpa dig, gör så här:

1. Aktivera kalkylbladet där du vill infoga bilden i sidhuvudet eller sidfoten.

2. Klicka sedan Insert > Sidhuvud och sidfot, och du kommer att gå till Sidhuvud & sidfotverktyg flik. Se skärmdump:

3. Om du vill infoga en bild i sidhuvudet eller sidfoten klickar du på vänster, höger eller mittruta eller sidfot efter behov och klickar sedan på Bild under Designa flik, se skärmdump:

4. Sedan, en Infoga bilder fönstret dyker upp, välj den bild du vill lägga till och klicka på Infoga. Nu, a &[Bild] platshållare visas i sidhuvudet eller sidfoten. Klicka var som helst utanför sidhuvudet eller sidfoten, den infogade bilden visas som nedan visad skärmdump:

tips: Ibland kan du upptäcka att bilden överlappar dataområdet i kalkylbladet enligt nedanstående skärmdump. Detta beror på att bilden är för stor och att den inte kommer att ändras så att den passar rubriken eller sidfoten automatiskt.

För att lösa problemet behöver du bara ändra storlek på bilden i sidhuvudet eller sidfoten, gör med följande steg:

1. Klicka i avsnittet sidhuvud eller sidfot där bilden finns och klicka sedan på Formatera bild under Designa flik, se skärmdump:

2. I Formatera bild under dialogrutan Storlek fliken, justera storleken på bilden så att den passar rubriken eller sidfältet, se skärmdump:

3. Och klicka sedan på OK, får du resultatet efter behov.


Infoga samma bild eller bild i flera kalkylblad

Ibland kanske du vill infoga en logobild i alla kalkylblad i din arbetsbok. Normalt kan du använda funktionen Infoga för att infoga bilden från ett ark till ett annat en efter en. Med undantag för den här tidskrävande funktionen kan följande VBA-kod hjälpa dig att infoga samma bild i den specifika cellen på alla ark samtidigt. Gör så här:

1. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. Klicka Insert > Modulernaoch klistra in följande kod i Modulerna Fönster.

VBA-kod: Infoga samma bild i alla kalkylblad:

Sub InsertImagetoallsheets()
'Updateby Extendoffice
    Dim I As Long
    Dim xPath As String
    Dim xShape As Shape
    Dim xRg As Range
    xPath = "C:\Users\AddinTestWin10\Desktop\my images\logo.png"
    If Dir(xPath) = "" Then
        MsgBox "Picture file was not found in path!", vbInformation, "KuTools for Excel"
        Exit Sub
    End If
    For I = 1 To ActiveWorkbook.Sheets.Count
        Set xRg = Sheets(I).Range("A1")
        Set xShape = Sheets(I).Shapes.AddPicture(xPath, True, True, xRg.Left, xRg.Top, xRg.Width, xRg.Height)
    Next
End Sub

Anmärkningar: I ovanstående kod, C: \ Användare \ AddinTestWin10 \ Skrivbord \ mina bilder \ logo.png är bildens sökväg och namn, och A1 in Räckvidd ("A1") är den cell där du vill infoga bilden, ändra dem efter behov.

3. Tryck sedan på F5 nyckel för att köra den här koden, och den specifika bilden har införts i cell A1 i varje kalkylblad omedelbart. Se nedan demo:


Infoga bild eller bild bakom cellinnehållet

För att göra kalkylbladets data vackrare och mer attraktiv kan du använda en bild som bakgrund. För att infoga en bild bakom cellinnehållet, här är några metoder som kan göra dig en tjänst.

Infoga bild eller bild bakom cellinnehållet med bakgrundsfunktionen

1. Öppna kalkylbladet där du vill infoga en bakgrundsbild.

2. Klicka sedan Sidan Layout > Bakgrund, se skärmdump:

3. I poppade ut Infoga bilder fönster, välj en bild från din dator, webbplats eller OneDrive efter behov, se skärmdump:

4. Nu har bilden infogats i kalkylbladet som bakgrund enligt nedanstående skärmdump:

tips: Klicka på för att radera bakgrundsbild Sidan Layout > Radera bakgrund. Se skärmdump:


Infoga transparent bild eller bild bakom cellinnehållet

Med ovanstående metod kan du inte ändra det transparenta i den infogade bakgrundsbilden, så om bakgrundsbildens färg är tung är det inte bekvämt för dig att läsa data i kalkylbladet. Detta avsnitt kommer jag att prata om hur man sätter in en transparent bild bakom cellerna.

1. Klicka Insert > Formeroch välj en rektangelform, se skärmdump:

2. Rita sedan en form så stor som du behöver i det aktiva kalkylbladet.

3. Efter att ha ritat formen, a ritverktyg fliken visas i menyfliksområdet och klicka sedan på bildad > Shape Outline > Ingen översikt, se skärmdump:

4. Högerklicka sedan på formen och välj Formatera form från snabbmenyn, se skärmdump:

5. I den utökade Formatera form under rutan Fyll & rad gör följande åtgärder:

  • Enligt Fyll avsnitt, välj Bild eller strukturfyllning alternativ;
  • Klicka Insert knapp från Bildkälla, och välj en bild du vill infoga;
  • Justera sedan bildens genomskinlighet efter ditt behov från Transparenty sektion.

6. Och sedan ser du formen fylld med bilder ser ut som en bakgrundsbild som visas ovan.

Anmärkningar: När du har infogat den här typen av bakgrundsbild får du inte skriva in någon text inom bildområdet.


Infoga transparent bild eller bild bakom cellinnehållet som vattenstämpel

Båda metoderna ovan har sina egna begränsningar, den första metoden kan inte ändra bildens genomskinlighet, den andra metoden tillåter inte att mata in text i cellerna i bildområdet. För att lösa dessa problem, Kutools för ExcelÄr Infoga vattenstämpel funktionen kan göra dig en tjänst.

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

1. Klicka Kutools > Insert > Infoga vattenstämpel, se skärmdump:

2. I poppade ut Infoga vattenstämpel dialogrutan väljer du Bild vattenstämpelOch klicka sedan på Välj bild för att välja en bild som du vill infoga och ange sedan bildskalan och markera alternativet Washout, se skärmdump:

3. Klicka sedan Ok knappen har bilden infogats i kalkylbladet som bakgrundsbild.


Infoga ett cellområde som bild- eller bildformat i Excel

Har du någonsin försökt att kopiera ett antal celler och infoga det som bild i Excel? I det här avsnittet kommer jag att presentera ett snabbt sätt att hantera detta jobb i Excel.

Infoga en rad celler som bild- eller bildformat med funktionen Kopiera som bild

I Excel kan du använda Kopiera som bild funktion för att kopiera och infoga ett cellintervall som bild.

1. Välj det cellområde som du vill kopiera och infoga som bild.

2. Klicka sedan Hem > Kopiera > Kopiera som bild, se skärmdump:

3. I poppade ut Kopiera bild dialogrutan, välj Bild från bildad avsnitt, se skärmdump:

4. Klicka sedan OK knappen, nu behöver du bara trycka på Ctrl + V att klistra in bilden till någonstans i arbetsboken.


Infoga ett cellområde som bild- eller bildformat med kameraverktyget

I Excel finns det en Kamera verktyg som kan hjälpa dig att ta ett foto för dina valda data och sedan klistra in det som en bild. När originaldata ändras kommer den kopierade bilden att ändras dynamiskt.

Först bör du visa Kamera på bandet och applicera det sedan.

1. Klicka Anpassa snabbåtkomstverktygsfältet och klicka sedan på Fler kommandon alternativ, se skärmdump:

2. I det öppnade Excel-alternativ dialogrutan, gör följande:

  • Välja Alla kommandon från Välj kommandon från falla ner;
  • Bläddra sedan för att välja Kamera från listrutan;
  • Och klicka sedan på Lägg till för att lägga till detta verktyg i Anpassa snabbåtkomstverktygsfältet;
  • Äntligen klickar du på OK för att stänga denna dialogruta.

3. Och den Kamera verktyget har visats på menyfliksområdet, se skärmdump:

4. Välj sedan det cellområde som du vill ha en bild.

5. Klicka sedan på Kamera verktyg, gå sedan till kalkylbladet och klicka var som helst, dataområdet kommer att infogas som en bild som visas nedan:


Infoga ett antal celler som bild- eller bildformat med en användbar funktion

Om du har Kutools för Excel, med dess Resursbibliotek funktionen kan du spara den valda informationen i Resursbibliotek, och använd den som bild eller text för framtiden som du vill.

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

1. Välj det dataområde som du vill infoga som bild.

2. Klicka sedan Kutools > Navigering, se skärmdump:

3. I den utökade Navigering fönster, klicka Resursbibliotek och klicka sedan på Lägg till markerat innehåll i resursbiblioteket ikon, se skärmdump:

4. I Ny post i resursbiblioteket i dialogrutan, ange ett namn för det här objektet och välj sedan en grupp som du vill lägga till. Se skärmdump:

5. Klicka sedan Lägg till knappen för att lägga till den till Resursbibliotek ruta. Om du vill infoga detta intervall som bild behöver du bara klicka på en cell för att hitta bilden och sedan hitta det sparade objektet från Resursbibliotek och klicka Infoga som > Bild (EMF) från rullgardinsmenyn för artikeln. Och dataområdet kommer att infogas i arket som en bild, se skärmdumpar:


Infoga bild eller bild baserat på cellvärde dynamiskt

I det här avsnittet visar jag dig hur du visar en specifik bild baserat på ett cellvärde. Till exempel vill jag visa motsvarande bild när jag väljer ett specifikt objekt från en nedrullningscell, och när jag väljer en annan kommer bilden att ändras dynamiskt enligt nedanstående demo:

Infoga bild eller bild baserat på cellvärde dynamiskt med funktionen Named range

Normalt kan du i Excel skapa ett dynamiskt namnintervall och sedan använda den länkade bilden för att lösa denna uppgift i Excel.

1. Först bör du skapa två kolumner som innehåller produktnamn och relativa bilder, se skärmdump:

2. Skapa sedan en rullgardinsmeny för cellvärdena. Klicka på en cell för att mata ut listrutan och klicka sedan på Data > Datagransknings > Datagransknings, se skärmdump:

3. I poppade ut Datagransknings under dialogrutan Inställningar fliken, välj Lista från Tillåt rullgardinsmenyn och välj sedan de celler som du vill skapa rullgardinsmenyn från Källa textruta, se skärmdump:

4. Klicka OK, och rullgardinsmenyn med cellvärdena har skapats, välj ett objekt i listrutan, se skärmdump:

5. Klicka sedan Formler > Definiera namn, se skärmdump:

6. I Nytt namn dialogrutan, gör följande:

  • Ange ett namn som heter myimage i Namn textruta;
  • Kopiera och klistra sedan in den här formeln: =INDEX(Sheet11!$A$2:$B$6,MATCH(Sheet11!$E$2,Sheet11!$A$2:$A$6,0),2) in i textrutan Hänvisar till.

Anmärkningar: I ovanstående formel:

  • Ark11! $ A $ 2: $ B $ 6: är kalkylbladet och intervallet som innehåller de värden och bilder du vill använda;
  • Sheet11! $ E $ 2: är cellen i kalkylbladet där du har skapat rullgardinsmenyn;
  • Sheet11! $ A $ 2: $ A $ 6: är listan över celler som du skapade rullgardinsmenyn baserat på;
  • Variabelnumret 2 är kolumnnumret som innehåller bilderna. Om dina bilder finns i kolumn C bör du ange 3.

7. Och klicka sedan på OK kopiera och klistra sedan in motsvarande bild baserat på cellvärdet i E2 från det ursprungliga intervallet till cellen F2, se skärmdump:

8. Välj sedan bilden i cell F2 och ange sedan denna formel = min bild (min bild är intervallnamnet som du skapade i steg 6) i formelfältet, se skärmdump:

9. När du har angett formeln trycker du på ange när du väljer ett objekt i listrutan kommer dess relativa bild att visas omedelbart. Se skärmdump:


Infoga bild eller bild baserat på cellvärde dynamiskt med en praktisk funktion

Ovanstående metod kan vara svår för de flesta av oss, här introducerar jag en praktisk funktion - Listruta för bild of Kutools för Excel, med det här användbara verktyget kan du skapa flera rullgardinslistor med deras relativa bilder med bara flera klick.

När du har installerat Kutools för Excel, gör med följande steg:

1. Först bör du skapa två kolumner som innehåller produktnamn och relativa bilder i kalkylbladet.

2. Och klicka sedan på Kutools > Listrutan > Listruta för bild, se skärmdump:

3. I Listruta för bild dialogruta, om du har skapat kolumnerna med cellvärden och bilder, ignorera steg 1, välj sedan originaldata- och bildintervallet och utmatningsområdet, se skärmdump:

4. Och klicka sedan på Ok -knappen har rullgardinslistorna med bilder skapats i de valda cellerna, och när du väljer ett objekt i rullgardinscellen visas motsvarande bild på en gång, se nedan demo:


Exportera eller spara alla bilder eller bilder från en Excel-fil

Om det finns flera bilder i din arbetsbok och nu vill du extrahera och spara alla bilder från Excel-filen i en mapp. Hur kunde du lösa den här uppgiften i Excel?

Exportera eller spara alla bilder eller bilder från Excel med funktionen Spara som

Normalt kan du använda Spara som funktion för att spara alla bilder från arbetsboken, gör så här:

1. Klicka Fil > Spara somI Spara som i fönstret, ange en mapp för att exportera filerna och välj sedan Webbsida (*. Htm; *. Html) från Spara som typ rullgardinslista, se skärmdump:

2. Och klicka sedan på Save , gå till den specifika mappen, du kommer att se två filer, en är HTML-formatfilen och en annan är en mapp som innehåller bilder, diagram eller andra objekt från arbetsboken. Se skärmdump:

3. Sedan kan du bara dra bilderna till en annan mapp efter behov.

Anmärkningar: Genom att använda detta Spara som funktionen, kommer du att få varje bild två gånger, en är mindre, en annan är större, så att du kan spara bilder med högre upplösning efter behov.


Exportera eller spara alla bilder eller bilder från Excel genom att ändra filtillägget

För att spara alla bilder från Excel-filen kan du också ändra filtillägget till RAR. Gör så här:

1. Ändra filtillägget xlsx till rar som nedan visas skärmdump:

2. Packa sedan upp filen så ser du 3 mappar och 1 fil i mappen, se skärmdump:

3. Klicka sedan för att öppna xl mappen och öppna sedan medium mappen ser du att alla bilder lagras här utan dubbletter, se skärmdump:


Exportera eller spara alla bilder eller bilder från Excel med en kraftfull funktion

Om du har Kutools för Excel, med dess Exportera grafik kan du snabbt exportera vissa specifika objekt, till exempel bilder, diagram, former till bildformat efter behov.

När du har installerat Kutools för Excel, gör med följande steg:

1. Klicka Kutools Plus > Import Export > Exportera grafik, se skärmdump:

2. I Exportera grafik dialogrutan, gör följande:

  • Välja Bilder alternativ från Typer rullgardinsmeny;
  • Ange en mapp för att spara dina exporterande bilder;
  • Klicka sedan på rullgardinsmenyn från Exportera format för att välja ett format för dina bilder.

3. Äntligen klickar du på Ok -knappen, alla bilder i den aktuella arbetsboken har sparats i den mapp du har angett, se skärmdump:


Byt namn på bildnamn i en mapp baserad på en lista över celler i Excel

Om du har många bilder i en mapp och nu vill du byta namn på alla dessa bilder, hur kan du lösa det här jobbet på ett enkelt sätt i Excel?

I Excel bör du först lista alla gamla bildnamn i en kolumn och sedan skriva de nya namnen, äntligen tillämpa en VBA-kod för att ersätta de gamla namnen med de nya namnen på en gång. Gör så här:

1. Vänligen lista alla bildnamn i en cellista, eller så kan du använda nedanstående kod för att lista alla bildnamn i en specifik mapp utan att manuellt skriva dem en efter en.

2. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer Fönster.

3. Klicka Insert > Modulernaoch klistra in följande makro i Modulerna fönster.

VBA-kod: lista alla bildnamn från en mapp

Sub MainList()
'Updateby Extendoffice
On Error Resume Next
Set xRg = Application.InputBox("Please select a cell to put the filenames:", "KuTools For Excel", Selection.Address, , , , , 8)
If xRg Is Nothing Then Exit Sub
Set xRg = xRg(1)
Set Folder = Application.FileDialog(msoFileDialogFolderPicker)
If Folder.Show <> -1 Then Exit Sub
xDir = Folder.SelectedItems(1)
Call ListFilesInFolder(xRg, xDir, True)
End Sub
Sub ListFilesInFolder(ByVal xRg As Range, ByVal xFolderName As String, ByVal xIsSubfolders As Boolean)
Dim xFileSystemObject As Object
Dim xFolder As Object
Dim xSubFolder As Object
Dim xFile As Object
Dim rowIndex As Long
Set xFileSystemObject = CreateObject("Scripting.FileSystemObject")
Set xFolder = xFileSystemObject.GetFolder(xFolderName)
rowIndex = 1
For Each xFile In xFolder.Files
xRg.Formula = xFile.Name
Set xRg = xRg.Offset(rowIndex)
rowIndex = 1
Next xFile
If xIsSubfolders Then
For Each xSubFolder In xFolder.SubFolders
ListFilesInFolder xRg, xSubFolder.Path, True
Next xSubFolder
End If
Set xFile = Nothing
Set xFolder = Nothing
Set xFileSystemObject = Nothing
End Sub

4. Tryck sedan på F5 nyckel för att köra den här koden och en snabbruta dyker upp, klicka på en cell där du vill mata ut bildnamnen, se skärmdump:

5. Klicka sedan OK, En annan Bläddra dialogrutan dyker upp, välj mappen som innehåller bilderna du vill lista alla bildnamn, se skärmdump:

6. Klicka OK, alla bildnamn i den specifika mappen har listats i cellerna, se skärmdump:

7. Skriv sedan in de nya namnen du behöver i en annan kolumn enligt nedanstående skärmdump:

8. Och sedan kan du använda nedanstående kod för att byta namn på bilderna, fortsätt trycka ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer Fönster.

9. Klicka Insert > Modulernaoch klistra in följande makro i Modulerna fönster.

VBA-kod: Byt namn på flera filer i en mapp

Sub RenameFiles()
'Updateby Extendoffice
Dim xDir As String
Dim xFile As String
Dim xRow As Long
With Application.FileDialog(msoFileDialogFolderPicker)
    .AllowMultiSelect = False
If .Show = -1 Then
    xDir = .SelectedItems(1)
    xFile = Dir(xDir & Application.PathSeparator & "*")
    Do Until xFile = ""
        xRow = 0
        On Error Resume Next
        xRow = Application.Match(xFile, Range("A:A"), 0)
        If xRow > 0 Then
            Name xDir & Application.PathSeparator & xFile As _
            xDir & Application.PathSeparator & Cells(xRow, "B").Value
        End If
        xFile = Dir
    Loop
End If
End With
End Sub

Anmärkningar: I ovanstående kod, A: A indikerar den gamla bildnamnlistan du vill byta namn på, och B innehåller de nya bildnamnen som du vill använda kan du ändra dem efter dina behov.

10. Tryck sedan på F5 nyckel för att köra den här koden och i poppade ut Bläddra välj mappen som innehåller bilden du vill byta namn på, se skärmdump:

11. Och klicka sedan på OK -knappen har alla bildnamn ersatts med de nya namnen som visas nedan:


Förstora eller krympa bilden när du klickar på den

Om du antar att du har lagt in en liten bild i kalkylbladet, nu vill du förstora bilden när du klickar på den och krympa den när du klickar igen enligt nedan. Hur kunde du lösa den här uppgiften i Excel?

För att förstora eller krympa bildstorleken när du klickar på den kan följande kod göra dig en tjänst. Gör så här:

1. Högerklicka på bilden och välj Tilldela makro, se skärmdump:

2. Sedan, i poppade ut Tilldela makro dialogrutan, klicka på Nya knapp, se skärmdump:

3. I Microsoft Visual Basic för applikationer kopiera och klistra in koden nedan mellan Sub och End Sub koder. Se skärmdump:

Dim shp As Shape
    Dim big As Single, small As Single
    Dim shpDouH As Double, shpDouOriH As Double
    big = 3  
    small = 1
    On Error Resume Next
    Set shp = ActiveSheet.Shapes(Application.Caller)
    With shp
        shpDouH = .Height
        .ScaleHeight 1, msoTrue, msoScaleFromTopLeft
        shpDouOriH = .Height
     
        If Round(shpDouH / shpDouOriH, 2) = big Then
            .ScaleHeight small, msoTrue, msoScaleFromTopLeft
            .ScaleWidth small, msoTrue, msoScaleFromTopLeft
            .ZOrder msoSendToBack
        Else
            .ScaleHeight big, msoTrue, msoScaleFromTopLeft
            .ScaleWidth big, msoTrue, msoScaleFromTopLeft
            .ZOrder msoBringToFront
        End If
    End With

4. Tryck sedan på Alt+Q för att stänga Microsoft Visual Basic för applikationer fönster. Nu när du klickar på bilden kommer den att förstoras till den storlek du angav, och klicka på den igen kommer att krympa till originalstorleken som visas nedan:


Flytta alltid en bild när du bläddrar i kalkylbladet

Ibland kanske du vill flyta en bild på kalkylbladet även om du rullar upp eller ner på kalkylbladet så att du kan se bilden hela tiden. I det här avsnittet kommer jag att presentera ett snabbt trick för dig att hantera detta jobb i Excel. Gör med följande steg:

1. Först in en bild som du vill använda.

2. Högerklicka sedan på arkfliken som innehåller bilden du alltid vill ha synlig och välj sedan Visa kod från snabbmenyn. I det öppnade Microsoft Visual Basic för applikationer fönster, kopiera och klistra in koden nedan i den tomma modulen:

VBA-kod: Flytta alltid en bild i ett kalkylblad

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby Extendoffice
    Application.ScreenUpdating = False
    If Target.Cells.Count > 1 Then Exit Sub
        With ActiveSheet.Shapes("Picture1")
            .Top = ActiveWindow.VisibleRange.Top + 5
            .Left = ActiveWindow.VisibleRange.Left + ActiveWindow.VisibleRange.Width - .Width - 45
        End With
    Application.ScreenUpdating = False
End Sub

Anmärkningar: I den här koden är Bild 1 är det bildnamn du har infogat, ändra det till ditt behov.

3. Spara och stäng sedan kodfönstret, när du bläddrar i kalkylbladet och klickar på en cell kommer bilden alltid att finnas i det övre högra hörnet av kalkylbladet. Se skärmdump:


Ta bort bilder eller bilder från det aktiva arket / ett cellområde

Har du några snabba sätt att radera alla bilder från ett kalkylblad, ett cellområde eller aktuell arbetsbok? Detta avsnitt kommer jag att presentera några metoder för att lösa detta jobb i Excel.

Ta bort bilder eller bilder från aktivt ark med VBA-kod

För att ta bort bilderna från det aktuella kalkylbladet kan nedanstående VBA-kod hjälpa dig, gör så här:

1. Aktivera kalkylbladet som innehåller bilderna du vill ta bort.

2. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

3. Klicka Insert > Modulernaoch klistra in följande makro i Modulerna Fönster.

VBA-kod: Ta bort alla bilder från det aktuella kalkylbladet

Sub DeleteAllPics()
'Updateby Extendoffice
Dim Pic As Object
For Each Pic In ActiveSheet.Pictures
Pic.Delete
Next Pic
End Sub

4. Tryck sedan på F5 för att köra den här koden och alla bilder i det aktiva kalkylbladet raderas på en gång.


Ta bort bilder eller bilder från ett antal celler med VBA-kod

Om du behöver ta bort bilderna från endast ett cellområde, här är en annan enkel kod som kan hjälpa dig.

1. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. Klicka Insert > Modulernaoch klistra in följande makro i Modulerna Fönster.

VBA-kod: Ta bort bilderna från ett antal celler

Sub DeletePic()
'Updateby Extendoffice
    Dim xPicRg As Range
    Dim xPic As Picture
    Dim xRg As Range
    Application.ScreenUpdating = False
    Set xRg = Range("B4:C6")
    For Each xPic In ActiveSheet.Pictures
        Set xPicRg = Range(xPic.TopLeftCell.Address & ":" & xPic.BottomRightCell.Address)
        If Not Intersect(xRg, xPicRg) Is Nothing Then xPic.Delete
    Next
    Application.ScreenUpdating = True
End Sub

Anmärkningar: I ovanstående kod, B4: C6 är det intervall som du vill ta bort bilderna från.

3. Tryck sedan på F5 för att köra den här koden, och bilderna i det valda intervallet raderas på en gång, se skärmdumpar:


Ta bort bilder eller bilder från aktivt ark, valda ark, alla ark med en praktisk funktion

Om du har Kutools för Excel, med dess Ta bort illustrationer och objekt kan du snabbt ta bort bilderna från ett kalkylblad, vissa valda ark eller hela arbetsboken.

När du har installerat Kutools för Excel, gör med följande steg:

1. Klicka Kutools > Radera > Ta bort illustrationer och objekt, se skärmdump:

2. I det öppnade Ta bort illustrationer och objekt dialogruta, kontrollera Bilder från Radera avsnittet och ange sedan det omfång som du vill ta bort bilderna under Titta in avsnitt, se skärmdump:

3. Klicka sedan Ok knappen, och alla bilder raderas från kalkylbladet, valda kalkylblad eller hela arbetsboken som du angav.


  • Super Formula Bar (enkelt redigera flera rader med text och formel); Läslayout (enkelt läsa och redigera ett stort antal celler); Klistra in i filtrerat intervall...
  • Sammanfoga celler / rader / kolumner och förvaring av data; Delat cellinnehåll; Kombinera duplicerade rader och summa / genomsnitt... Förhindra duplicerade celler; Jämför intervall...
  • Välj Duplicera eller Unikt Rader; Välj tomma rader (alla celler är tomma); Super Find och Fuzzy Find i många arbetsböcker; Slumpmässigt val ...
  • Exakt kopia Flera celler utan att ändra formelreferens; Skapa referenser automatiskt till flera ark; Sätt in kulor, Kryssrutor och mer ...
  • Favorit och sätt snabbt in formler, Intervall, diagram och bilder; Kryptera celler med lösenord; Skapa e-postlista och skicka e-post ...
  • Extrahera text, Lägg till text, ta bort efter position, Ta bort mellanslag; Skapa och skriva ut personsökningstalsatser; Konvertera mellan celler innehåll och kommentarer...
  • Superfilter (spara och tillämpa filterscheman på andra ark); Avancerad sortering efter månad / vecka / dag, frekvens och mer; Specialfilter av fet, kursiv ...
  • Kombinera arbetsböcker och arbetsblad; Sammanfoga tabeller baserat på nyckelkolumner; Dela data i flera ark; Batchkonvertera xls, xlsx och PDF...
  • Gruppering av pivottabell efter veckonummer, veckodagen och mer ... Visa olåsta, låsta celler av olika färger; Markera celler som har formel / namn...
kte-flik 201905
  • 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!
officetab botten
Comments (5)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Geachte,

Zeer interesse pagina.

Wel stel ik me de vraag hoe we na input van de foto's, die foto's in het midden van de cel krijgen.

Bestaat er hier ook een macro voor.?
This comment was minimized by the moderator on the site
Hello,
There are several vba codes in this article, which VBA code do you need to put the pictures in center of the cells?
Thank you!
This comment was minimized by the moderator on the site
Good afternoon,

Very nice page.

Only I tried the VBA of "Insert Multiple Images Or Images That Match Their Names With VBA Code" but unfortunately it doesn't work.

I can finish everything but unfortunately I can't get with pictures in the excel.

Any idea what the problem could be here?
This comment was minimized by the moderator on the site
Hello, janick,The code works well in my workbook, do you select the correct folder contains the images? Please check it?
Thank you!
This comment was minimized by the moderator on the site
This is a great article! I really like how you presented it so easy to understand
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations