Det er let for de fleste af os at indsætte billeder, der er gemt på computeren, i regnearket. Gør som dette:

1. Klik på det regneark, hvor du vil indsætte billeder.

2. Klik derefter på indsatte > Billeder > Denne enhed, se skærmbillede:

3. I poppet ud Indsæt billede vindue, skal du åbne den mappe, der indeholder billederne, og derefter holde den nede Ctrl tast for at vælge de billeder, du vil indsætte, se skærmbillede:

4. Klik derefter på indsatte knappen, er de valgte billeder indsat i arket. Nu kan du justere eller ændre størrelsen på billederne til de celler, du har brug for, se skærmbillede:

Hvis du har Excel 2013 eller nyere versioner, kan du indsætte billederne fra internettet eller One Drive, skal du gøre som dette:

1. Klik på det regneark, hvor du vil indsætte billeder.

2. Klik derefter på indsatte > Billeder > Online billeder, se skærmbillede:

3. Et følgende vindue vises. I Online billeder sektion, skriv det, du leder efter, i tekstboksen, og tryk derefter på Indtast nøgle. Alle tilsvarende billeder søges på én gang, se skærmbillede:

4. Vælg derefter de ønskede billeder, og klik derefter på indsatte knap. Når du har indsat billederne, skal du ændre størrelsen eller justere billederne til den position, du har brug for.

Følgende VBA-kode kan hjælpe dig med at indsætte flere billeder i celler baseret på cellestørrelsen. Gør som dette:

1. Juster den cellestørrelse, som du vil placere billedet, og vælg derefter cellerne.

2. Hold derefter nede ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.

3. Klik indsatte > Moduler, og indsæt følgende makro i Moduler vindue.

VBA-kode: Indsæt flere billeder baseret på cellestørrelsen

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. Tryk derefter på F5 nøgle til at køre denne kode. I Åbne vindue, skal du vælge den mappe, der indeholder billederne, vælg derefter de billeder, du vil indsætte, og klik derefter på Åbne knappen, og alle de valgte billeder er indsat i dit valg baseret på cellestørrelsen. Se skærmbillede:

Hvis du ikke er bekendt med VBA-koden, kan du her bruge en strømfunktion - Importer billeder of Kutools til Excel. Med denne nyttige funktion kan du hurtigt og nemt importere flere billeder til cellerne.

Efter installation Kutools til Excelskal du gøre med følgende trin:

1. Klik Kutools Plus > Import Eksport > Importer billeder, se skærmbillede:

2. I poppet ud Importer billeder dialog, skal du udføre følgende handlinger:

• Angiv billedrækkefølgen fra rullelisten Importer ordre, du kan vælge Fyld lodret celle efter celle or Fyld vandret celle efter celle;
• Klik derefter på Tilføj knap for at vælge billedfiler eller mappe for at tilføje billederne til Billedliste;
• Klik på knappen Importstørrelse knappen, i Importer billedstørrelse dialogboksen skal du vælge Matchende cellestørrelse valgmulighed.
• 

3. Når du er færdig med indstillingerne, skal du klikke på Importere knappen, og nu en anden Importer billeder er poppet ud, angiv de destinationsceller, du vil importere billedet til, se skærmbillede:

4. Klik derefter på OK knap, alle de valgte billeder er indsat for at matche størrelsen på specifikke celler som vist nedenstående skærmbillede:

Følgende VBA-kode kan hjælpe dig med at indsætte flere billeder, der matcher deres navne hurtigt, gør venligst som dette:

1. Hold nede ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.

2. Klik indset> Moduler, og indsæt følgende makro i Moduler vindue.

VBA-kode: Indsæt flere billeder, der matcher deres navne

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

Bemærk: I ovenstående kode kan du ændre billedets højde og bredde inden for scripts “.ShapeRange.Højde = 60",".ShapeRange.Width = 60”Til dit behov.

3. Tryk derefter på F5 nøgle til at køre denne kode, og i det åbnede vindue skal du vælge den mappe, der indeholder de billeder, du vil indsætte, se skærmbillede:

4. Klik derefter på OK knap, der vises en hurtigboks, vælg de celler, der indeholder billednavne, se skærmbillede:

5. Fortsæt med at klikke OK knap, og en anden promptboks følges, skal du vælge de celler, som du vil sende billederne, se skærmbillede:

6. Endelig skal du klikke på OK, og billederne er indsat i cellerne på baggrund af deres navne på én gang, se skærmbillede:

Hvis du har Kutools til Excel, Med Match importbilleder funktion kan du hurtigt og nemt indsætte billederne baseret på billednavne.

Efter installation Kutools til Excelskal du gøre som dette:

1. Klik Kutools Plus > Import Eksport > Match importbilleder, se skærmbillede:

2. I poppet ud Match importbillede dialogboksen, skal du udføre følgende handlinger:

• Angiv billedrækkefølgen fra rullelisten Importer ordre, du kan vælge Fyld lodret celle efter celle or Fyld vandret celle efter celle;
• Derefter fra Match rækkevidde tekstboks, vælg de billednavne, du vil indsætte billeder baseret på;
• Klik derefter på Tilføj knap for at vælge billedfiler eller mappe for at tilføje billederne til Billedliste;
• Dernæst skal du angive billedstørrelsen. Klik venligst Importstørrelse knappen, i Importer billedstørrelse i dialogboksen skal du vælge en billedstørrelse efter behov.
• 

3. Når du er færdig med indstillingerne, skal du klikke på Importere skal du vælge en celle eller en liste over celler for at finde billederne fra det dukkede ud Match importbilleder dialog, se skærmbillede:

4. Klik derefter på OK, og alle billeder, som navnene matchede med celleværdierne er indsat, se skærmbillede:

Anvend følgende VBA-kode for at indsætte billederne baseret på en liste over webadresser.

1. Juster først den tilstødende cellestørrelse, som du vil finde billederne.

2. Hold nede ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.

3. Klik indsatte > Moduler, og indsæt følgende makro i Moduler vindue.

VBA-kode: Indsæt billeder fra en liste over webadresser

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

Noter: I ovenstående kode, A2: A5 er det celleområde, der indeholder de URL-adresser, du vil udtrække billederne, skal du ændre cellehenvisningerne til dit behov.

4. Tryk derefter på F5 nøgle til at køre denne kode, de matchende billeder ekstraheres fra URL'erne til den tilstødende kolonne og placeres i centrum af celler, se skærmbillede:

Kutools til Excel har en fantastisk funktion - Indsæt billeder fra sti (URL). Med dette værktøj ekstraheres de tilsvarende billeder hurtigt og nemt fra URL'erne.

Efter installation Kutools til Excelskal du gøre med følgende trin:

1. Klik Kutools > indsatte > Indsæt billeder fra sti (URL), se skærmbillede:

2. I poppet ud Indsæt billeder fra sti (URL) dialogboks, skal du indstille følgende handlinger:

• Vælg listen over URL-celler og et celleområde, hvor du vil placere billederne;
• Angiv størrelsen på billederne, som du har brug for fra Billedstørrelse sektion.
• 

3. Klik derefter på Ok knap, og alle billederne er hentet fra URL'erne, se skærmbillede:

Du kan anvende følgende VBA-kode til at indsætte billederne baseret på billedfilstierne.

1. Hold nede ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.

2. Klik indsatte > Moduler, og indsæt derefter følgende kode i Moduler Vindue.

VBA-kode: Indsæt billeder fra en række filstier

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 indsat ovenstående kode, skal du trykke på F5 nøgle til at køre denne kode, så popper en promptboks ud, vælg cellerne i filstien, se skærmbillede:

4. Klik derefter på OK -knappen, alle billeder baseret på filstierne er vist i næste kolonne som følgende skærmbillede vist:

Kutools til Excel's Indsæt billeder fra sti (URL) funktionen kan også hjælpe dig med at vise de relative billeder fra filstien.

Efter installation Kutools til Excelskal du gøre som dette:

1. Klik Kutools > indsatte > Indsæt billeder fra sti (URL), i dialogboksen, der vises, skal du angive filstiens rækkevidde, rækkevidde til udskrivning af billeder, billedstørrelse efter behov, se skærmbilleder:

2. Når du har indstillet indstillingerne, skal du klikke på Ok knap, billederne indsættes i de valgte celler på én gang, se skærmbillede:

Tips: Nogle gange kan du opleve, at billedet overlapper med regnearkets dataområde som vist nedenstående skærmbillede. Dette sker, fordi billedet er for stort, og det ændres ikke, så det automatisk passer til boksen sidehoved eller sidefod.

For at løse dette problem skal du bare ændre størrelsen på billedet i sidehovedet eller sidefoden. Benyt følgende trin:

1. Klik i sidehovedet eller sidefoden, hvor billedet er placeret, og klik derefter på Formatér billede under Design fane, se skærmbillede:

2. I Formatér billede under dialogboksen Størrelse fane, skal du justere størrelsen på billedet, så det passer til boksen sidehoved eller sidefod, se skærmbillede:

3. Klik derefter på OK, får du resultatet efter behov.

1. Åbn regnearket, hvor du vil indsætte et baggrundsbillede.

2. Klik derefter på Sidelayout > Baggrund, se skærmbillede:

3. I poppet ud Indsæt billeder vindue, skal du vælge et billede fra din computer, websted eller OneDrive, som du har brug for, se skærmbillede:

4. Nu er billedet indsat i regnearket som baggrund som vist nedenstående skærmbillede:

Med ovenstående metode kan du ikke ændre gennemsigtigheden af ​​det indsatte baggrundsbillede, så hvis baggrundsbilledets farve er tung, er det ikke praktisk for dig at læse dataene i regnearket. Dette afsnit vil jeg tale om, hvordan man indsætter et gennemsigtigt billede bag cellerne.

1. Klik indsatte > Former, og vælg en rektangelform, se skærmbillede:

2. Tegn derefter en form så stor som du har brug for i det aktive regneark.

3. Efter at have tegnet formen, a Tegning Værktøj fanen vises i båndet, og klik derefter på dannet > Shape Outline > Ingen oversigt, se skærmbillede:

4. Og højreklik derefter på formen, og vælg Formater form fra kontekstmenuen, se skærmbillede:

5. I det udvidede Formater form under ruden Udfyld & linje udføre følgende handlinger:

• Under Fyld sektion, vælg Billede eller tekstur udfyldning mulighed;
• Klik indsatte knappen fra picture source, og vælg et billede, du vil indsætte;
• Juster derefter gennemsigtigheden af ​​billedet til dit behov fra Transparenty sektion.
• 

6. Og så vil du se formen fyldt med billeder ligner et baggrundsbillede som vist ovenstående skærmbillede.

Bemærk: Når du har indsat denne type baggrundsbillede, har du ikke tilladelse til at indtaste tekst inden for billedområdet.

Begge ovenstående metoder har deres egne begrænsninger, den første metode kan ikke ændre billedgennemsigtigheden, den anden metode tillader ikke indtastning af tekst i cellerne i billedområdet. For at løse disse problemer, Kutools til Excel's Indsæt vandmærke funktion kan gøre dig en tjeneste.

Efter installation Kutools til Excelskal du gøre som dette:

1. Klik Kutools > indsatte > Indsæt vandmærke, se skærmbillede:

2. I poppet ud Indsæt vandmærke dialogboksen, vælg Billede vandmærke, Og klik derefter på Vælg Billede for at vælge et billede, du vil indsætte, og derefter angive billedskalaen og kontrollere Washout-indstillingen, se skærmbillede:

3. Klik derefter på Ok knappen, er billedet indsat i regnearket som baggrundsbillede.

I Excel kan du bruge Kopier som billede funktion til at kopiere og indsætte et celleområde som billede.

1. Vælg det celleområde, du vil kopiere, og indsæt som billede.

2. Klik derefter på Home > Kopi > Kopier som billede, se skærmbillede:

3. I poppet ud Kopier billede dialog, vælg Billede fra dannet sektion, se skærmbillede:

4. Klik derefter på OK knap, nu skal du bare trykke på Ctrl + V at indsætte billedet overalt i projektmappen.

I Excel er der en Kamera værktøj, der kan hjælpe dig med at tage et foto til dine valgte data og derefter indsætte det som billede. Når de originale data ændres, ændres det kopierede billede dynamisk.

Først skal du vise Kamera på båndet, og anvend det derefter.

1. Klik Tilpas værktøjslinjen Hurtig adgang ikonet, og klik derefter på Flere kommandoer mulighed, se skærmbillede:

2. I åbnet Excel-indstillinger dialogboksen, skal du udføre følgende handlinger:

• Type Alle kommandoer fra Vælg kommandoer fra falde ned;
• Rul derefter for at vælge Kamera fra listeboksen
• Klik derefter på Tilføj knappen for at tilføje dette værktøj til Tilpas værktøjslinjen Hurtig adgang;
• Endelig skal du klikke på OK for at lukke denne dialogboks.
• 

3. Og Kamera værktøjet er vist på båndet, se skærmbillede:

4. Vælg derefter det celleområde, du vil have et billede.

5. Klik derefter på Kamera værktøj, gå derefter til regnearket og klik hvor som helst, dataområdet indsættes som et billede som vist nedenfor:

Hvis du har Kutools til Excel, Med Ressourcebibliotek funktion, kan du gemme de valgte data i Ressourcebibliotek, og brug det derefter som billede eller tekst til fremtiden, som du vil.

Efter installation Kutools til Excelskal du gøre som dette:

1. Vælg det dataområde, du vil indsætte som billede.

2. Klik derefter på Kutools > Navigation, se skærmbillede:

3. I det udvidede Navigation rude, klik Ressourcebibliotek ikonet, og klik derefter på Føj valgt indhold til Ressourcebiblioteket ikon, se skærmbillede:

4. I Ny post i ressourcebiblioteket i dialogboksen, skal du angive et navn til dette element og derefter vælge en gruppe, du vil føje til. Se skærmbillede:

5. Klik derefter på Tilføj knappen for at tilføje den til Ressourcebibliotek rude. Hvis du vil indsætte dette interval som billede, skal du bare klikke på en celle for at finde billedet og derefter finde det gemte element fra Ressourcebibliotek ruden, og klik på Indsæt som > Billede (EMF) fra rullelisten over varen. Og dataområdet indsættes i arket som et billede, se skærmbilleder:

Normalt kan du i Excel oprette et dynamisk navngivet interval og derefter bruge det sammenkædede billede til at løse denne opgave i Excel.

1. Først skal du oprette to kolonner, der indeholder produktnavne og relative billeder, se skærmbillede:

2. Opret derefter en rulleliste for celleværdierne. Klik på en celle for at få vist rullelisten, og klik derefter på data > Datavalidering > Datavalidering, se skærmbillede:

3. I poppet ud Datavalidering under dialogboksen Indstillinger fanebladet, vælg Liste fra Tillad drop down, og vælg derefter de celler, du vil oprette rullelisten fra Kilde tekstboks, se skærmbillede:

4. Klik OK, og rullelisten med celleværdier er oprettet, vælg et element fra rullelisten, se skærmbillede:

5. Klik derefter på formler > Definer navn, se skærmbillede:

6. I Nyt navn dialogboksen, skal du udføre følgende handlinger:

• Indtast et navn kaldet myimage i Navn tekstboks;
• Kopier og indsæt derefter denne formel: =INDEX(Sheet11!$A$2:$B$6,MATCH(Sheet11!$E$2,Sheet11!$A$2:$A$6,0),2) ind i tekstfeltet Henviser til.

Bemærk: I ovenstående formel:

• Ark11! $ A $ 2: $ B $ 6: er regnearket og området, der indeholder de værdier og billeder, du vil bruge;
• Ark11! $ E $ 2: er cellen i regnearket, hvor du har oprettet rullelisten;
• Ark11! $ A $ 2: $ A $ 6: er listen over celler, som du er oprettet, rullelisten baseret på;
• Variabelnummeret 2 er kolonnenummeret, der indeholder billederne. Hvis dine billeder er i kolonne C, skal du indtaste 3.

7. Klik derefter på OK knap, kopier og indsæt derefter det tilsvarende billede baseret på celleværdien i E2 fra det oprindelige interval til cellen F2, se skærmbillede:

8. Vælg derefter billedet i celle F2, og indtast derefter denne formel = mit billede (mit billede er det rækkevidde, du har oprettet i trin 6) i formellinjen, se skærmbillede:

9. Når du har indtastet formlen, skal du trykke på Indtast nøgle, og nu, når du vælger et element fra rullelisten, vises dets relative billede med det samme. Se skærmbillede:

Ovenstående metode kan være vanskelig for de fleste af os, her vil jeg introducere en praktisk funktion - Rulleliste til billeder of Kutools til Excel, med dette nyttige værktøj kan du oprette flere rullelister med deres relative billeder med kun flere klik.

Efter installation Kutools til Excelskal du gøre med følgende trin:

1. Først skal du oprette to kolonner, der indeholder produktnavne og relative billeder i dit regneark.

2. Klik derefter på Kutools > Rulleliste > Rulleliste til billeder, se skærmbillede:

3. I Rulleliste til billeder dialogboks, hvis du har oprettet kolonnerne med celleværdier og billeder, skal du ignorere trin 1, og derefter vælge det originale data- og billedområde og outputområdet, se skærmbillede:

4. Klik derefter på Ok knappen, er rullelisterne med billeder oprettet i de valgte celler, og når du vælger et emne fra rullemenuen, vises det tilsvarende billede med det samme, se nedenstående demo:

Normalt kan du bruge Gem som funktion for at gemme alle billeder fra projektmappen, gør som følger:

1. Klik File (Felt) > Gem somI Gem som vindue, angiv en mappe, der skal placeres de eksporterede filer, og vælg derefter Webside (*. Htm; *. Html) fra Gem som skriv rullelisten, se skærmbillede:

2. Og klik derefter på Gem knap, gå til den specifikke mappe, du vil se to filer, den ene er HTML-formatfilen, og en anden er en mappe, der indeholder billeder, diagrammer eller andre objekter fra projektmappen. Se skærmbillede:

3. Derefter kan du kun trække billederne til en anden mappe, som du har brug for.

Bemærk: Ved at bruge dette Gem som funktion, får du hvert billede to gange, et er mindre, et andet er større, så du kan gemme billeder med højere opløsning, som du har brug for.

For at gemme alle billeder fra Excel-fil kan du også ændre filtypen til RAR. Gør som dette:

1. Skift filtypen xlsx til rar som vist nedenstående skærmbillede:

2. Derefter pakkes filen ud, og du vil se 3 mapper og 1 fil i mappen, se skærmbillede:

3. Klik derefter for at åbne xl mappen, og åbn derefter medier mappe, vil du se alle billederne er gemt her uden duplikater, se skærmbillede:

Hvis du har Kutools til Excel, Med Eksporter grafik funktion, kan du hurtigt eksportere nogle specifikke objekter, såsom billeder, diagrammer, former til billedformat, som du har brug for.

Efter installation Kutools til Excelskal du gøre med følgende trin:

1. Klik Kutools Plus > Import Eksport > Eksporter grafik, se skærmbillede:

2. I Eksporter grafik i dialogboksen, skal du udføre følgende handlinger:

• Vælg Billeder mulighed fra Typer rulleliste
• Angiv en mappe for at gemme dine eksporterende billeder;
• Klik derefter på rullelisten fra Eksporter format for at vælge et format til dine billeder.
• 

3. Endelig skal du klikke på Ok knap, alle billederne i den aktuelle projektmappe er gemt i den mappe, du har angivet, se skærmbillede:

For at slette billederne fra det aktuelle regneark kan nedenstående VBA-kode hjælpe dig, gør venligst følgende:

1. Aktiver regnearket, der indeholder de billeder, du vil slette.

2. Hold nede ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.

3. Klik indsatte > Moduler, og indsæt følgende makro i Moduler Vindue.

VBA-kode: Slet alle billeder fra det aktuelle regneark

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

4. Tryk derefter på F5 nøgle til at køre denne kode, og alle billederne i det aktive regneark slettes på én gang.

Hvis du kun har brug for at slette billederne fra en række celler, er der en anden enkel kode, der kan hjælpe dig.

1. Hold nede ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.

2. Klik indsatte > Moduler, og indsæt følgende makro i Moduler Vindue.

VBA-kode: Slet billederne fra en række 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

Bemærk: I ovenstående kode, B4: C6 er det område, som du vil slette billederne fra.

3. Tryk derefter på F5 tast for at køre denne kode, og billederne i det valgte område slettes med det samme, se skærmbilleder:

Hvis du har Kutools til Excel, Med Slet illustrationer og objekter funktion, kan du hurtigt slette billederne fra et regneark, nogle valgte ark eller en hel projektmappe.

Efter installation Kutools til Excelskal du gøre med følgende trin:

1. Klik Kutools > Slette > Slet illustrationer og objekter, se skærmbillede:

2. I åbnet Slet illustrationer og objekter dialogboks, tjek Billeder fra Slette sektion, og angiv derefter det omfang, som du vil slette billederne under kig ind sektion, se skærmbillede:

3. Klik derefter på Ok knappen, og alle billeder slettes fra regnearket, valgte regneark eller hele projektmappen, som du har angivet.