Hoppa till huvudinnehåll

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

Författare: Xiaoyang Senast ändrad: 2024-11-27

Oavsett om du behöver infoga bilder från din dator, webben eller OneDrive, eller låsa in dem i specifika celler, erbjuder den här guiden omfattande lösningar. Du kommer också att lära dig hur du dynamiskt visar bilder baserat på cellvärden, ändrar storlek och justerar flera bilder, bäddar in bilder i kommentarer eller rubriker och skapar dynamiska bildrullgardinsmenyer. För mer avancerade uppgifter, som att exportera, döpa om, flytta eller ta bort bilder från specifika intervall eller kalkylblad, ingår steg-för-steg-instruktioner för att guida dig genom varje process.

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:

En skärmdump av alternativet Infoga bilder i Excel för att lägga till bilder från en enhet

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:

En skärmdump av att välja bilder i dialogrutan Infoga bild i Excel

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:

En skärmdump av bilder infogade i ett Excel-kalkylblad


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:

En skärmdump av alternativet Onlinebilder i Excel under fliken Infoga

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:

En skärmdump av sökresultaten för onlinebilder i Excel

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.

En skärmdump som visar filter för bildsökningsresultat i Excels funktion för onlinebilder

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.

En skärmdump som visar OneDrive-alternativet för att infoga bilder i Excel


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.

En demonstration av bilder som inte ändrar storlek eller filtrerar med celler i Excel

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:

En skärmdump som visar alternativet Storlek och egenskaper för bilder i Excel

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:

En skärmdump av rutan Formatera bild med alternativet Flytta och storlek med celler markerat

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:

En skärmdump av flera bilder infogade i celler baserat på cellstorlek i Excel


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.

Kutools för Excel erbjuder över 300 avancerade funktioner för att effektivisera komplexa uppgifter, vilket ökar kreativiteten och effektiviteten. Förbättrad med AI-funktioner, Kutools automatiserar uppgifter med precision, vilket gör datahantering enkel. Detaljerad information om Kutools för Excel...         Gratis provperiod...

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

En skärmdump av alternativet Importera bilder i Kutools-fliken i Excel

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.
  • En skärmdump av dialogrutan Importera bildstorlek

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:

En skärmdump som visar destinationscellernas dialogruta under import av bilder

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

En skärmdump av flera bilder infogade och storleksändrade för att matcha Excel-cellstorlekar med hjälp av Kutools


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.

En skärmdump av en Excel-tabell med produktnamn och motsvarande bilder

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:

En skärmdump av dialogrutan för val av mapp för att infoga bilder

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

En skärmdump av uppmaningen att välja celler som innehåller bildnamn för VBA-kod

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:

En skärmdump av uppmaningen att välja utdataceller för bilder

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

En skärmdump som visar bilder infogade i Excel-celler baserat på deras namn med hjälp av VBA


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

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

Kutools för Excel - Fullpackad med över 300 viktiga verktyg för Excel. Njut av permanent gratis AI-funktioner! Ladda ner nu!

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

En skärmdump av alternativet Matcha importera bilder i Kutools Plus-fliken i Excel

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.
  • En skärmdump av dialogrutan Importera bildstorlek

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:

En skärmdump av dialogrutan Matcha importera bilder för att hitta bilder i Excel

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

En skärmdump som visar bilder infogade i Excel-celler som matchar namn med Kutools


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:

En skärmdump av bilder extraherade från webbadresser till intilliggande celler i Excel


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.

Kutools för Excel erbjuder över 300 avancerade funktioner för att effektivisera komplexa uppgifter, vilket ökar kreativiteten och effektiviteten. Förbättrad med AI-funktioner, Kutools automatiserar uppgifter med precision, vilket gör datahantering enkel. Detaljerad information om Kutools för Excel...         Gratis provperiod...

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

En skärmdump av alternativet Infoga bilder från sökväg (URL) på fliken Kutools i Excel

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.
  • En skärmdump av dialogrutan Infoga bilder från sökväg (URL).

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

En skärmdump som visar bilder infogade från webbadresser med Kutools


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:

En skärmdump av VBA-prompten för att välja filsökvägsceller i Excel

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

En skärmdump som visar bilder som visas i Excel från filsökvägar med VBA


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.

Kutools för Excel - Fullpackad med över 300 viktiga verktyg för Excel. Njut av permanent gratis AI-funktioner! Ladda ner nu!

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:

En skärmdump av alternativet Infoga bilder från sökväg (URL) i Kutools-fliken i Excel och dialogrutan Infoga bilder från sökväg (URL)

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:

En skärmdump som visar bilder infogade i Excel-celler från filsökvägar med hjälp av Kutools


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.

En skärmdump som visar alternativet Infoga kommentar i Excel

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:

En skärmdump som visar alternativet Formatkommentar i Excel

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:

En skärmdump av dialogrutan Formatkommentar som visar fliken Färger och linjer i Excel

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:

En skärmdump av dialogrutan Fyllningseffekter för att välja en bild i Excel-kommentarer

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

En skärmdump av en bild som infogats i en Excel-kommentarruta


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:

En skärmdump som visar fliken Verktyg för sidhuvud och sidfot i Excel

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:

En skärmdump av knappen Bild på fliken Design i Verktyg för sidhuvud och sidfot i Excel

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:

En skärmdump av en bild som visas i Excel-kalkylbladets rubrik

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.

En skärmdump som visar en överdimensionerad huvudbild som överlappar dataområdet i Excel

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:

En skärmdump som visar alternativet Formatera bild för att ändra storlek på en bild i sidhuvudet eller sidfoten i Excel

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

En skärmdump av dialogrutan Formatera bilds storleksflik för att justera bildstorleken i Excel

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:

En demonstration av att infoga samma bild i flera kalkylblad i Excel med VBA


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:

En skärmdump av fliken Sidlayout som visar alternativet Bakgrund i Excel

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

En skärmdump av dialogrutan Infoga bilder för att lägga till en bakgrundsbild i Excel

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

En skärmdump som visar ett kalkylblad med en bakgrundsbild i Excel

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

En skärmdump som visar alternativet Ta bort bakgrund på fliken Sidlayout i Excel


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:

En skärmdump av alternativet Infoga former i Excel för att skapa en anpassad bakgrund

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:

En skärmdump som visar alternativet Formkontur för att ta bort kanten på en form i Excel

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

En skärmdump av alternativet Format Shape

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 Öppenhet sektion.
  • En skärmdump av rutan Format Shape för att justera transparens och infoga bilder i Excel

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.

Kutools för Excel erbjuder över 300 avancerade funktioner för att effektivisera komplexa uppgifter, vilket ökar kreativiteten och effektiviteten. Förbättrad med AI-funktioner, Kutools automatiserar uppgifter med precision, vilket gör datahantering enkel. Detaljerad information om Kutools för Excel...         Gratis provperiod...

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

En skärmdump av alternativet Infoga vattenstämpel i Kutools-fliken i Excel

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:

En skärmdump av dialogrutan Infoga vattenstämpel

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:

En skärmdump som visar alternativet Kopiera som bild på Excels Hem-flik

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

En skärmdump av dialogrutan Kopiera bild i Excel för att välja formatalternativ

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

En skärmdump av en bild skapad från ett kopierat cellintervall i Excel


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:

En skärmdump av alternativet Fler kommandon från menyn Anpassa snabbåtkomstverktygsfältet

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.
  • En skärmdump av dialogrutan för Excel-alternativ för att lägga till kameraverktyget i menyfliksområdet

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

En skärmdump som visar kameraverktyget som lagts till i verktygsfältet Snabbåtkomst i Excel

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:

En demonstration av hur man använder kameraverktyget för att skapa en bild av ett dataintervall i Excel


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

Om du 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.

Kutools för Excel - Fullpackad med över 300 viktiga verktyg för Excel. Njut av permanent gratis AI-funktioner! Ladda ner nu!

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

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

En skärmdump som visar Kutools för Excels navigeringsalternativ i Excel-band

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:

En skärmdump av att lägga till valt innehåll till resursbiblioteket

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:

En skärmdump av dialogrutan Ny resursbiblioteksinmatning

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:

En skärmdump som visar data infogat som en bild med hjälp av Kutools för Excels resursbibliotek


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:

En demonstration av dynamiskt föränderliga bilder baserat på valda rullgardinsvärden i Excel

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:

En skärmdump av två kolumner som innehåller produktnamn och deras motsvarande bilder i Excel

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:

En skärmdump som visar alternativet Datavalidering i Excel för att skapa en rullgardinslista

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:

En skärmdump av dialogrutan Datavalidering för att välja listalternativ i Excel

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

En skärmdump av en rullgardinslista skapad i Excel för att välja produkter

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

En skärmdump som visar alternativet Definiera namn på Excels formlerflik

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.

    En skärmdump av dialogrutan Nytt namn med en dynamisk formel för att referera till bilder i Excel

    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:

En skärmdump av en kopierad bild bredvid en rullgardinslista i Excel

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:

En skärmdump som visar hur man länkar en bild till ett namngivet område med hjälp av en formel i Excel

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:

En skärmdump som visar en dynamiskt uppdaterad bild baserat på ett valt rullgardinsvärde i Excel


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.

Kutools för Excel erbjuder över 300 avancerade funktioner för att effektivisera komplexa uppgifter, vilket ökar kreativiteten och effektiviteten. Förbättrad med AI-funktioner, Kutools automatiserar uppgifter med precision, vilket gör datahantering enkel. Detaljerad information om Kutools för Excel...         Gratis provperiod...

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:

En skärmdump av alternativet Picture Drop-down List i Kutools för Excel

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:

En skärmdump av dialogrutan Bildrullgardinslista för att länka bilder till rullgardinslistor

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:

En demonstration av att skapa rullgardinslistor med dynamiska bilder med hjälp av Kutools


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:

En skärmdump som visar fönstret Spara som i Excel för att spara som en webbsida

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:

En skärmdump som visar den sparade HTML-filen och mappen som innehåller bilder som exporterats från Excel

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:

En skärmdump som visar hur man ändrar en Excel-filtillägg till .rar

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

En skärmdump av den uppackade mappstrukturen efter att ha ändrat en Excel-fil till .rar-format

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:

En skärmdump av mediamappen som innehåller alla bilder som exporterats från Excel


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

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

Kutools för Excel erbjuder över 300 avancerade funktioner för att effektivisera komplexa uppgifter, vilket ökar kreativiteten och effektiviteten. Förbättrad med AI-funktioner, Kutools automatiserar uppgifter med precision, vilket gör datahantering enkel. Detaljerad information om Kutools för Excel...         Gratis provperiod...

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

En skärmdump som visar alternativet Exportera grafik i Kutools Plus-fliken i Excel

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.
  • En skärmdump av dialogrutan Exportera grafik

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

En skärmdump som visar bilder som exporteras med Kutools för Excels exportgrafikfunktion


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:

En skärmdump som visar uppmaningen att välja en cell för att mata ut filnamn i Excel

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:

En skärmdump av dialogrutan Bläddra för att välja en mapp som innehåller bilder

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

En skärmdump som visar alla bildnamn från en mapp listad i Excel

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

En skärmdump som visar nya bildnamn inmatade i en annan kolumn i Excel

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:

En skärmdump av dialogrutan Bläddra för att välja en mapp som innehåller bilder

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

En skärmdump som visar omdöpta bildfiler listade i Excel


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?

En demo-GIF som visar en bild som förstoras och krymps i Excel vid klick

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:

En skärmdump som visar hur man tilldelar ett makro till en bild i Excel

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

En skärmdump av dialogrutan Tilldela makro med knappen Ny markerad

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

En skärmdump av VBA-koden för att förstora och förminska bilder i Excel när du klickar på den

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:

En demo-GIF som visar en bild som förstoras och krymps i Excel vid klick


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

En skärmdump som visar VBA-kod för att få en bild att flyta medan du rullar i Excel

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:

En skärmdump som visar en bild som flyter i det övre högra hörnet av ett kalkylblad i Excel


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:

En skärmdump som visar bilder som raderas från ett valt område i Excel


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

Om du 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.

Kutools för Excel erbjuder över 300 avancerade funktioner för att effektivisera komplexa uppgifter, vilket ökar kreativiteten och effektiviteten. Förbättrad med AI-funktioner, Kutools automatiserar uppgifter med precision, vilket gör datahantering enkel. Detaljerad information om Kutools för Excel...         Gratis provperiod...

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

En skärmdump som visar Kutools-funktionen Ta bort illustrationer och objekt i Excel

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:

En skärmdump av dialogrutan Ta bort illustrationer och objekt

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

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!