Note: The other languages of the website are Google-translated. Back to English
Inloggen  \/ 
x
or
x
Registreer  \/ 
x

or

Excel-afbeeldingen: meerdere afbeeldingen of afbeeldingen in Excel invoegen, wijzigen, verwijderen

In deze zelfstudie zullen we het hebben over het invoegen van meerdere afbeeldingen in cellen en het aanpassen van de grootte aan de celgrootte, hoe u een afbeelding invoegt in commentaar, koptekst of voettekst, hoe u afbeeldingen van URL's invoegt, enzovoort. Het legt ook uit hoe u meerdere afbeeldingen kunt opslaan, hernoemen en verwijderen in Excel.

Inhoudsopgave:

1. Voeg afbeeldingen of afbeeldingen in het werkblad in vanaf de computer, het web of OneDrive

2. Vergrendel afbeeldingen of afbeeldingen in de Excel-cel

3. Voeg meerdere afbeeldingen of afbeeldingen in Excel in

4. Voeg meerdere afbeeldingen of afbeeldingen in die overeenkomen met hun naam in cellen

5. Afbeeldingen of afbeeldingen van URL's invoegen of weergeven

6. Afbeeldingen of afbeeldingen van bestandspaden invoegen of weergeven

7. Voeg een afbeelding of afbeelding in een opmerking in

8. Voeg een afbeelding of afbeelding in de koptekst of voettekst in

9. Voeg dezelfde afbeelding of afbeelding in meerdere werkbladen in

10. Voeg een afbeelding of afbeelding in achter de celinhoud

11. Voeg een celbereik in als afbeeldings- of afbeeldingsindeling in Excel

12. Voeg een afbeelding of afbeelding dynamisch in op basis van de celwaarde

13. Exporteer of bewaar alle afbeeldingen of afbeeldingen vanuit een Excel-bestand

14. Hernoem afbeeldingsnamen in een map op basis van een lijst met cellen in Excel

15. Vergroot of verklein de afbeelding door erop te klikken

16. Laat een afbeelding altijd zweven wanneer u door het werkblad scrolt

17. Verwijder afbeeldingen of afbeeldingen uit het actieve blad / een reeks cellen


Voeg afbeeldingen of afbeeldingen in het werkblad in vanaf de computer, het web of OneDrive

Alle Excel-versies ondersteunen het invoegen van afbeeldingen of afbeeldingen vanaf de computer, maar als u de afbeeldingen van internet of OneDrive wilt invoegen, moet u Excel 2013 en latere versies hebben.

Voeg afbeeldingen of afbeeldingen van de computer in

Voor de meesten van ons is het gemakkelijk om afbeeldingen die op de computer zijn opgeslagen in het werkblad in te voegen. Doe alstublieft als volgt:

1. Klik in het werkblad waar u afbeeldingen wilt invoegen.

2. Dan klikken Invoegen > Foto's > Dit apparaat, zie screenshot:

3. In de pop-out Afbeelding invoegen venster, open de map met de afbeeldingen en houd vervolgens ingedrukt Ctrl toets om de afbeeldingen te selecteren die u wilt invoegen, zie screenshot:

4. Dan klikken Invoegen knop, zijn de geselecteerde afbeeldingen in het blad ingevoegd. Nu kunt u de afbeeldingen aanpassen of vergroten of verkleinen naar de cellen die u nodig hebt, zie screenshot:


Voeg afbeeldingen of afbeeldingen van internet of OneDrive in

Als u Excel 2013 of latere versies heeft, kunt u de afbeeldingen van het web of One Drive invoegen, doe dit als volgt:

1. Klik in het werkblad waar u afbeeldingen wilt invoegen.

2. Dan klikken Invoegen > Foto's > Online foto's, zie screenshot:

3. Een volgend venster wordt weergegeven. In de Online foto's typt u wat u zoekt in het tekstvak en drukt u vervolgens op Enter sleutel. Alle bijbehorende afbeeldingen worden in één keer doorzocht, zie screenshot:

4. Selecteer vervolgens de gewenste afbeeldingen en klik op Invoegen knop. Nadat u de afbeeldingen hebt ingevoegd, dient u het formaat van de afbeeldingen te wijzigen of de afbeeldingen aan te passen aan de gewenste positie.

Tips:

1. Om een ​​aantal specifieke afbeeldingen te zoeken, kunt u de gevonden afbeeldingen filteren op grootte, type, lay-out of kleur.

2. Naast het invoegen van afbeeldingen vanuit Bing Search, kunt u ook afbeeldingen invoegen die zijn opgeslagen op uw OneDrive. Klik in het onderstaande venster op Microsoft Onedrive linksonder in het venster en selecteer vervolgens de afbeeldingen die u wilt invoegen.


Vergrendel afbeeldingen of afbeeldingen in de Excel-cel

Normaal gesproken, nadat u de afbeeldingen in cellen heeft ingevoegd en u de grootte van de cellen met de afbeelding wijzigt, filtert of verbergt, wordt de afbeelding niet samen met die cel vergroot of verkleind of gefilterd, zoals hieronder wordt getoond.

In dit geval moet u de afbeelding in de cel vergrendelen, zodat deze samen met de cel kan worden verkleind, gefilterd of verborgen. Voer de volgende stappen uit:

1. Klik om een ​​foto te selecteren en druk op Ctrl + A om alle afbeeldingen in het werkblad te selecteren.

2. Klik vervolgens met de rechtermuisknop op een afbeelding en selecteer Grootte en eigenschappen zie screenshot vanuit het contextmenu:

3. In het uitgebreide Afbeelding opmaken deelvenster, onder het Woningaanbod sectie, selecteer Verplaats en grootte met cellen optie, zie screenshot:

4. Sluit vervolgens het Afbeelding opmaken paneel. Nu, bij het vergroten of verkleinen, filteren of verbergen van de cellen, worden de afbeeldingen ook verplaatst, gefilterd of verborgen.


Voeg meerdere afbeeldingen of afbeeldingen in Excel in

Soms moet u mogelijk meerdere afbeeldingen in de cellen invoegen en deze automatisch aanpassen aan de celgrootte zonder de grootte van de afbeeldingen te wijzigen en de afbeeldingen te slepen. Hier zal ik twee manieren introduceren om deze taak in Excel op te lossen.

Voeg meerdere afbeeldingen of afbeeldingen in en pas het formaat aan zodat ze in cellen passen met VBA-code

De volgende VBA-code kan u helpen om meerdere afbeeldingen in cellen in te voegen op basis van de celgrootte. Doe alstublieft als volgt:

1. Pas de celgrootte aan waarin u de afbeelding wilt plaatsen en selecteer vervolgens de cellen.

2. Houd vervolgens de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

3. Klikken Invoegen > Moduleen plak de volgende macro in het Module venster.

VBA-code: voeg meerdere afbeeldingen in op basis van de celgrootte

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. Druk vervolgens op F5 sleutel om deze code uit te voeren. In de Open venster, kies de map die de afbeeldingen bevat, selecteer vervolgens de afbeeldingen die u wilt invoegen en klik vervolgens op Open knop, en alle geselecteerde afbeeldingen zijn in uw selectie ingevoegd op basis van de celgrootte. Zie screenshot:


Voeg meerdere afbeeldingen of afbeeldingen in en pas het formaat aan zodat ze in cellen passen met een krachtige functie

Als u niet bekend bent met de VBA-code, kunt u hier een stroomvoorziening gebruiken - Afbeeldingen importeren of Kutools for Excel. Met deze handige functie kunt u snel en gemakkelijk meerdere afbeeldingen in de cellen importeren.

Na het installeren van Kutools for Excel, voer dan de volgende stappen uit:

1. Klikken Kutools Plus > Importeren en exporteren > Afbeeldingen importeren, zie screenshot:

2. In de pop-out Afbeeldingen importeren dialoog, voer de volgende bewerkingen uit:

  • Specificeer de afbeeldingsvolgorde in de vervolgkeuzelijst Importeer, u kunt kiezen Vul verticaal cel na cel or Vul horizontaal cel na cel;
  • Dan klikken Toevoegen knop om de afbeeldingsbestanden of map te selecteren om de afbeeldingen toe te voegen aan het Foto lijst;
  • Klik op de Import maat knop, in de Afbeeldingsgrootte importeren dialoogvenster, selecteert u het Bijpassende celgrootte optie.

3. Klik na het voltooien van de instellingen op import knop, en nu nog een Afbeeldingen importeren is uitgeklapt, specificeert u de bestemmingscellen waarin u de afbeelding wilt importeren, zie screenshot:

4. Dan klikken OK knop, zijn alle geselecteerde afbeeldingen ingevoegd om overeen te komen met de grootte van specifieke cellen zoals hieronder getoond screenshot:


Voeg meerdere afbeeldingen of afbeeldingen in die overeenkomen met hun naam in cellen

Als u een lijst met productnamen in één kolom heeft, en nu, moet u de bijbehorende afbeeldingen in een andere kolom invoegen, zoals onderstaand screenshot. Het invoegen van de afbeeldingen en ze vervolgens een voor een naar elke positie slepen, zal veel tijd verspillen, in dit gedeelte zal ik het hebben over enkele snelle methoden.

Voeg meerdere afbeeldingen of afbeeldingen in die overeenkomen met hun naam met VBA-code

De volgende VBA-code kan u helpen om snel meerdere afbeeldingen met dezelfde naam in te voegen, doe dit als volgt:

1. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. Klikken Insert> Moduleen plak de volgende macro in het Module venster.

VBA-code: voeg meerdere afbeeldingen in die overeenkomen met hun naam

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

Opmerking:: In de bovenstaande code kunt u de hoogte en breedte van de afbeelding binnen de scripts wijzigen ".ShapeRange.Hoogte = 60",".ShapeRange.Breedte = 60”Aan uw behoefte.

3. Druk vervolgens op F5 sleutel om deze code uit te voeren, en selecteer in het geopende venster de map met de afbeeldingen die u wilt invoegen, zie screenshot:

4. En klik dan OK knop, er verschijnt een promptvenster, selecteer de cellen die de afbeeldingsnamen bevatten, zie screenshot:

5. Blijf klikken OK knop, en een ander promptvenster wordt gevolgd, selecteer de cellen waarvan u de afbeeldingen wilt uitvoeren, zie screenshot:

6. Klik ten slotte op OK, en de afbeeldingen zijn in één keer in de cellen ingevoegd op basis van hun naam, zie screenshot:


Voeg meerdere afbeeldingen of afbeeldingen in die overeenkomen met hun naam met een handige functie

Als je Kutools for Excel, Met Match afbeeldingen importeren functie kunt u de afbeeldingen snel en gemakkelijk invoegen op basis van de afbeeldingsnamen.

Na het installeren van Kutools for Excel, doe dit als volgt:

1. Klikken Kutools Plus > Importeren en exporteren > Match afbeeldingen importeren, zie screenshot:

2. In de pop-out Match afbeelding importeren dialoogvenster, voer dan de volgende bewerkingen uit:

  • Specificeer de afbeeldingsvolgorde in de vervolgkeuzelijst Importeer, u kunt kiezen Vul verticaal cel na cel or Vul horizontaal cel na cel;
  • Vervolgens van de Match bereik tekstvak, selecteer de afbeeldingsnamen waarop u afbeeldingen wilt invoegen op basis van;
  • En klik dan Toevoegen knop om de afbeeldingsbestanden of map te selecteren om de afbeeldingen toe te voegen aan het Foto lijst;
  • Vervolgens moet u de afbeeldingsgrootte specificeren. Klik alstublieft Import maat knop, in de Afbeeldingsgrootte importeren dialoogvenster, selecteer een fotoformaat zoals u nodig heeft.

3. Klik na het voltooien van de instellingen op import -knop, kies een cel of een lijst met cellen om de afbeeldingen uit de pop-up te lokaliseren Match afbeeldingen importeren dialoog, zie screenshot:

4. Dan klikken OK, en alle afbeeldingen waarvan de namen overeenkomen met de celwaarden zijn ingevoegd, zie screenshot:


Afbeeldingen of afbeeldingen van URL's invoegen of weergeven

Heeft u ooit geprobeerd de afbeeldingen uit een lijst met URL's weer te geven of in te voegen? Misschien is er geen andere goede methode om de afbeeldingen rechtstreeks in Excel in te voegen, maar u kunt een code of een hulpprogramma van derden toepassen om ermee om te gaan.

Voeg afbeeldingen of afbeeldingen van URL's in of geef ze weer met VBA-code

Pas de volgende VBA-code toe om de afbeeldingen in te voegen op basis van een lijst met URL's.

1. Pas eerst de aangrenzende celgrootte aan waarnaar u de afbeeldingen wilt lokaliseren.

2. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

3. Klikken Invoegen > Moduleen plak de volgende macro in het Module venster.

VBA-code: afbeeldingen invoegen uit een lijst met URL's

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

Notes: In de bovenstaande code, A2: A5 is het celbereik dat de URL-adressen bevat waarvan u de afbeeldingen wilt extraheren, u moet de celverwijzingen naar uw behoefte wijzigen.

4. Druk vervolgens op F5 sleutel om deze code uit te voeren, worden de overeenkomende afbeeldingen uit de URL's naar de aangrenzende kolom geëxtraheerd en in het midden van cellen geplaatst, zie screenshot:


Voeg afbeeldingen of afbeeldingen van URL's in of toon ze met een geweldige functie

Kutools for Excel heeft een geweldige eigenschap - Afbeeldingen invoegen vanaf pad (URL). Met dit hulpprogramma worden de bijbehorende afbeeldingen snel en gemakkelijk uit de URL's geëxtraheerd.

Na het installeren van Kutools for Excel, voer dan de volgende stappen uit:

1. Klikken Kutools > Invoegen > Afbeeldingen invoegen vanaf pad (URL), zie screenshot:

2. In de pop-out Afbeeldingen invoegen vanaf pad (URL) dialoogvenster, stel de volgende bewerkingen in:

  • Selecteer de lijst met URL-cellen en een reeks cellen waarin u de afbeeldingen wilt plaatsen;
  • Specificeer de grootte van de afbeeldingen zoals u nodig heeft in het Beeldgrootte sectie.

3. En klik dan Ok knop, en alle afbeeldingen zijn geëxtraheerd uit de URL's, zie screenshot:


Voeg afbeeldingen of afbeeldingen van bestandspaden in of geef ze weer

Als u de afbeeldingen vanaf het bestandspad moet invoegen, vindt u hier ook de oplossingen voor u.

Voeg afbeeldingen of afbeeldingen van bestandspaden in of geef ze weer met VBA-code

U kunt de volgende VBA-code toepassen voor het invoegen van de afbeeldingen op basis van de afbeeldingsbestandspaden.

1. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. Klikken Invoegen > Moduleen plak de volgende code in het Module Venster.

VBA-code: afbeeldingen invoegen uit een reeks bestandspaden

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. Druk na het invoeren van de bovenstaande code op F5 sleutel om deze code uit te voeren, dan verschijnt er een promptvenster, selecteer de cellen van het bestandspad, zie screenshot:

4. Dan klikken OK knop, zijn alle afbeeldingen op basis van de bestandspaden weergegeven in de volgende kolom zoals in de volgende schermafbeelding:


Voeg afbeeldingen of afbeeldingen van bestandspaden in of geef ze weer met een geweldige functie

Kutools for Excel's Afbeeldingen invoegen vanaf pad (URL) functie kan u ook helpen om de relatieve afbeeldingen van het bestandspad weer te geven.

Na het installeren van Kutools for Excel, doe dit als volgt:

1. Klikken Kutools > Invoegen > Afbeeldingen invoegen vanaf pad (URL), specificeer in het uitgeklapte dialoogvenster het bestandspadbereik, het bereik voor het uitvoeren van afbeeldingen, de afbeeldingsgrootte zoals je nodig hebt, zie schermafbeeldingen:

2. Klik na het instellen van de opties op Ok knop, worden de afbeeldingen in één keer in de geselecteerde cellen ingevoegd, zie screenshot:


Voeg een afbeelding of afbeelding in een opmerking in

Misschien is het gemakkelijk om een ​​afbeelding in een cel in te voegen, maar soms wilt u een afbeelding in een opmerkingenvak invoegen, hoe gaat u met deze taak om?

1. Selecteer en klik met de rechtermuisknop op de cel waarin u een opmerking wilt invoegen, en kies vervolgens Opmerking invoegen, zie screenshot:

Tips: Als u een opmerking heeft ingevoegd, kunt u deze stap overslaan.

2. Beweeg de cursor vervolgens over de randen van het opmerkingenvak, totdat u ziet dat de cursor verandert in een pictogram met vier pijlen. En klik vervolgens met de rechtermuisknop en selecteer Formaat commentaar optie, zie screenshot:

3. In de pop-out Formaat commentaar dialoogvenster, klik Kleuren en lijnen tab, en selecteer Opvuleffecten van de Kleur vervolgkeuzelijst, zie screenshot:

4. Dan, in het volgende Opvuleffecten dialoogvenster, klik beeld tab en klik Selecteer afbeelding knop om een ​​afbeelding te kiezen die u wilt invoegen, zie screenshot:

5. En klik dan OK > OK, de afbeelding is in het opmerkingenveld ingevoegd, zie screenshot:


Voeg een afbeelding of afbeelding in de koptekst of voettekst in

Als u een afbeelding in de kop- of voettekst van uw Excel-werkblad wilt invoegen, kunnen de stappen in deze sectie u helpen, doe dit als volgt:

1. Activeer het werkblad waar u de afbeelding in de kop- of voettekst wilt invoegen.

2. Dan klikken Invoegen > Koptekst en voettekst, en je gaat naar de Hulpprogramma's voor koptekst en voettekst tabblad. Zie screenshot:

3. Om een ​​afbeelding in de koptekst of voettekst in te voegen, klikt u op een linker, rechter of midden koptekst of voettekst, zoals u nodig heeft, en klikt u vervolgens op beeld onder de Design tabblad, zie screenshot:

4. Vervolgens een Afbeeldingen invoegen venster zal verschijnen, kies de afbeelding die u wilt toevoegen en klik op Invoegen. Nu, een & [Afbeelding] tijdelijke aanduiding verschijnt in het kop- of voettekstvak. Klik ergens buiten het koptekst- of voettekstvak, de ingevoegde afbeelding wordt weergegeven zoals onderstaand screenshot:

Tips: Soms kan het zijn dat de afbeelding overlapt met het gegevensgebied van het werkblad, zoals hieronder wordt getoond. Dit gebeurt omdat de afbeelding te groot is en het formaat niet automatisch wordt aangepast om in het koptekst- of voettekstvak te passen.

Om dit probleem op te lossen, hoeft u alleen het formaat van de afbeelding in de kop- of voettekst te wijzigen, volg de volgende stappen:

1. Klik in het kop- of voettekstgedeelte waar de afbeelding zich bevindt en klik vervolgens op Afbeelding opmaken onder de Design tabblad, zie screenshot:

2. In de Afbeelding opmaken dialoogvenster onder het Maat tab, pas de grootte van de afbeelding aan zodat deze in het kop- of voettekstvak past, zie screenshot:

3. En klik dan OK, u krijgt het resultaat zoals u dat nodig heeft.


Voeg dezelfde afbeelding of afbeelding in meerdere werkbladen in

Soms wilt u misschien een logo-afbeelding in alle werkbladen van uw werkmap invoegen, normaal gesproken kunt u de functie Invoegen toepassen om de afbeelding van het ene blad naar het andere een voor een in te voegen. Met uitzondering van deze tijdrovende functie, kan de volgende VBA-code u helpen om dezelfde afbeelding in één keer in de specifieke cel van alle bladen in te voegen. Voer de onderstaande stappen uit:

1. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. Klikken Invoegen > Moduleen plak de volgende code in het Module Venster.

VBA-code: voeg dezelfde afbeelding in alle werkbladen in:

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

Opmerking:: In de bovenstaande code, C: \ Users \ AddinTestWin10 \ Desktop \ mijn afbeeldingen \ logo.png is het pad en de naam van de afbeelding, en A1 in Bereik ("A1") is de cel waarin u de afbeelding wilt invoegen, wijzig deze naar uw behoefte.

3. Druk vervolgens op F5 toets om deze code uit te voeren, en de specifieke afbeelding is onmiddellijk in cel A1 van elk werkblad ingevoegd. Zie onderstaande demo:


Voeg een afbeelding of afbeelding in achter de celinhoud

Om de werkbladgegevens mooier en aantrekkelijker te maken, kunt u een afbeelding als achtergrond gebruiken. Hier zijn enkele methoden die u een plezier kunnen doen om een ​​afbeelding achter de celinhoud in te voegen.

Voeg een afbeelding of afbeelding in achter de celinhoud met de achtergrondfunctie

1. Open het werkblad waarin u een achtergrondafbeelding wilt invoegen.

2. Dan klikken Pagina layout > Achtergrond, zie screenshot:

3. In de pop-out Afbeeldingen invoegen venster, kies een afbeelding van uw computer, website of OneDrive zoals u nodig hebt, zie screenshot:

4. Nu is de afbeelding als achtergrond in het werkblad ingevoegd, zoals hieronder wordt getoond:

Tips: Om een ​​achtergrondafbeelding te verwijderen, klikt u gewoon op Pagina layout > Achtergrond verwijderen. Zie screenshot:


Voeg een transparante afbeelding of afbeelding in achter de celinhoud

Met bovenstaande methode kunt u de doorzichtigheid van de ingevoegde achtergrondafbeelding niet wijzigen, dus als de kleur van de achtergrondafbeelding zwaar is, is het niet handig om de gegevens van het werkblad te lezen. In dit gedeelte zal ik het hebben over het invoegen van een transparante afbeelding achter de cellen.

1. Klikken Invoegen > Vormen, en selecteer een rechthoekige vorm, zie screenshot:

2. Teken vervolgens een vorm zo groot als je nodig hebt in een actief werkblad.

3. Na het tekenen van de vorm, a Hulpmiddelen voor tekenen tabblad wordt weergegeven in het lint en klik vervolgens op Formaat > Vormoverzicht > Geen overzicht, zie screenshot:

4. En klik vervolgens met de rechtermuisknop op de vorm en kies Vorm opmaken zie screenshot vanuit het contextmenu:

5. In het uitgebreide Vorm opmaken deelvenster, onder het Vullen en lijn tabblad, voer de volgende bewerkingen uit:

  • Onder de Vulling sectie, selecteer Afbeelding of textuurvulling keuze;
  • Klik Invoegen knop van de foto bron, en kies een afbeelding die u wilt invoegen;
  • Pas vervolgens de transparantie van de afbeelding aan uw wensen aan vanuit het Transparanty sectie.

6. En dan zie je dat de vorm gevuld met afbeeldingen eruitziet als een achtergrondafbeelding zoals hierboven afgebeeld.

Opmerking:: Nadat u dit type achtergrondafbeelding heeft ingevoegd, mag u geen tekst meer invoeren binnen het afbeeldingsbereik.


Voeg een transparante afbeelding of afbeelding in achter de celinhoud als watermerk

Beide bovenstaande methoden hebben hun eigen beperkingen, de eerste methode kan de afbeeldingstransparantie niet wijzigen, de tweede methode staat het invoeren van tekst in de cellen in het afbeeldingsgebied niet toe. Om deze problemen op te lossen, Kutools for Excel's Plaats watermerk functie kan je een plezier doen.

Na het installeren van Kutools for Excel, doe dit als volgt:

1. Klikken Kutools > Invoegen > Plaats watermerk, zie screenshot:

2. In de pop-out Plaats watermerk dialoogvenster, selecteer Afbeelding watermerkEn klik op Selecteer afbeelding knop om een ​​afbeelding te kiezen die u wilt invoegen, specificeer vervolgens de afbeeldingsschaal en vink de optie Uitspoelen aan, zie screenshot:

3. Dan klikken Ok knop, is de afbeelding als achtergrondafbeelding in het werkblad ingevoegd.


Voeg een celbereik in als afbeeldings- of afbeeldingsindeling in Excel

Heeft u ooit geprobeerd een reeks cellen te kopiëren en deze als afbeelding in Excel in te voegen? In dit gedeelte zal ik een snelle manier introduceren om met deze taak in Excel om te gaan.

Voeg een celbereik in als afbeelding of afbeeldingsformaat met de functie Kopiëren als afbeelding

In Excel kunt u de Kopieer als afbeelding functie om een ​​celbereik als afbeelding te kopiëren en in te voegen.

1. Selecteer het celbereik dat u wilt kopiëren en als afbeelding wilt invoegen.

2. Dan klikken Home > Kopiëren > Kopieer als afbeelding, zie screenshot:

3. In de pop-out Afbeelding kopiëren dialoogvenster, selecteer beeld van de Formaat sectie, zie screenshot:

4. Dan klikken OK knop, u hoeft nu alleen maar op te drukken Ctrl + V om de afbeelding ergens in de werkmap te plakken.


Voeg een celbereik in als afbeelding of afbeeldingsformaat met de camera-tool

In Excel is er een camera tool waarmee u een foto kunt maken voor uw geselecteerde gegevens en deze vervolgens als afbeelding kunt plakken. Als de originele gegevens veranderen, wordt de gekopieerde afbeelding dynamisch gewijzigd.

Eerst moet u het camera op het lint en breng het vervolgens aan.

1. Klikken Pas de werkbalk Snelle toegang aan pictogram en klik vervolgens op Meer opdrachten optie, zie screenshot:

2. In het geopende Excel-opties dialoogvenster, voer dan de volgende bewerkingen uit:

  • kies Alle opdrachten van de Kies opdrachten van laten vallen;
  • Scroll vervolgens om te selecteren camera uit de keuzelijst;
  • En klik dan Toevoegen knop om deze tool toe te voegen aan het Pas de werkbalk Snelle toegang aan;
  • Eindelijk, klik OK om dit dialoogvenster te sluiten.

3. En de camera tool is weergegeven op het lint, zie screenshot:

4. Selecteer vervolgens het celbereik waarvan u een afbeelding wilt.

5. En klik vervolgens op het camera tool, ga dan naar het werkblad en klik ergens, het gegevensbereik wordt ingevoegd als een afbeelding zoals hieronder getoond demo:


Voeg een reeks cellen in als afbeelding- of afbeeldingsformaat met een handige functie

Als je Kutools for Excel, Met resource Library functie, kunt u de geselecteerde gegevens opslaan in het resource Library, en gebruik het vervolgens als afbeelding of tekst voor de toekomst zoals je wilt.

Na het installeren van Kutools for Excel, doe dit als volgt:

1. Selecteer het gegevensbereik dat u als afbeelding wilt invoegen.

2. Dan klikken Kutools > Navigatie, zie screenshot:

3. In het uitgebreide Navigatie venster, klik op resource Library pictogram en klik vervolgens op Voeg geselecteerde inhoud toe aan de resourcebibliotheek pictogram, zie screenshot:

4. In de Nieuw item uit de bronbibliotheek dialoogvenster, geef een naam op voor dit item en selecteer vervolgens een groep waaraan u wilt toevoegen. Zie screenshot:

5. Dan klikken Toevoegen knop om toe te voegen resource Library paneel. Als u dit bereik als afbeelding wilt invoegen, hoeft u alleen maar op een cel te klikken om de afbeelding te zoeken en vervolgens het opgeslagen item te zoeken in de resource Library paneel en klik op Invoegen als > Afbeelding (EMF) uit de vervolgkeuzelijst van het item. En het gegevensbereik wordt als afbeelding in het blad ingevoegd, zie screenshots:


Voeg een afbeelding of afbeelding dynamisch in op basis van de celwaarde

In dit gedeelte laat ik u zien hoe u een specifieke afbeelding weergeeft op basis van een celwaarde. Ik wil bijvoorbeeld de bijbehorende afbeelding laten zien wanneer ik een specifiek item uit een vervolgkeuzelijst selecteer, en wanneer ik een andere kies, wordt de afbeelding dynamisch gewijzigd zoals hieronder wordt getoond:

Voeg een afbeelding of afbeelding dynamisch in op basis van de celwaarde met de functie Benoemd bereik

Normaal gesproken kunt u in Excel een dynamisch benoemd bereik maken en vervolgens de gekoppelde afbeelding gebruiken om deze taak in Excel op te lossen.

1. Eerst moet u twee kolommen maken die de productnamen en relatieve afbeeldingen bevatten, zie screenshot:

2. Maak vervolgens een vervolgkeuzelijst voor de celwaarden. Klik op een cel om de vervolgkeuzelijst weer te geven en klik vervolgens op Data > Data Validation > Data Validation, zie screenshot:

3. In de pop-out Data Validation dialoogvenster onder het Instellingen tabblad, kies Lijst van de Allow vervolgkeuzelijst en selecteer vervolgens de cellen waarvoor u de vervolgkeuzelijst wilt maken in het bron textbox, zie screenshot:

4. Klikken OK, en de vervolgkeuzelijst met de celwaarden is gemaakt, selecteer een item uit de vervolgkeuzelijst, zie screenshot:

5. Dan klikken Formules > Definieer naam, zie screenshot:

6. In de Nieuwe naam dialoogvenster, voer dan de volgende bewerkingen uit:

  • Voer een naam met de naam myimage in het Naam tekstvak;
  • Kopieer en plak vervolgens deze formule: =INDEX(Sheet11!$A$2:$B$6,MATCH(Sheet11!$E$2,Sheet11!$A$2:$A$6,0),2) in het tekstvak Verwijst naar.

Opmerking:: In de bovenstaande formule:

  • Blad11! $ A $ 2: $ B $ 6: is het werkblad en bereik met de waarden en afbeeldingen die u wilt gebruiken;
  • Blad11! $ E $ 2: is de cel in het werkblad waar u de vervolgkeuzelijst hebt gemaakt;
  • Blad11! $ A $ 2: $ A $ 6: is de lijst met cellen waarop de vervolgkeuzelijst is gemaakt op basis van;
  • Het variabele nummer 2 is het kolomnummer met de afbeeldingen. Als uw afbeeldingen in kolom C staan, moet u 3 invoeren.

7. En klik dan OK knop, kopieer en plak vervolgens de bijbehorende afbeelding op basis van de celwaarde in E2 van het oorspronkelijke bereik naar de cel F2, zie screenshot:

8. Selecteer vervolgens de afbeelding in cel F2 en voer vervolgens deze formule in = myimage (mijn afbeelding is de bereiknaam die u in stap 6 hebt gemaakt) in de formulebalk, zie screenshot:

9. Druk na het invoeren van de formule op Enter toets, en als u nu een item uit de vervolgkeuzelijst kiest, wordt de bijbehorende afbeelding onmiddellijk weergegeven. Zie screenshot:


Voeg een afbeelding of afbeelding dynamisch in op basis van de celwaarde met een handige functie

Bovenstaande methode kan voor de meesten van ons moeilijk zijn, hier zal ik een handige functie introduceren - Vervolgkeuzelijst met afbeeldingen of Kutools for ExcelMet deze handige tool kunt u met slechts enkele klikken meerdere vervolgkeuzelijsten maken met hun relatieve afbeeldingen.

Na het installeren van Kutools for Excel, voer dan de volgende stappen uit:

1. Eerst moet u twee kolommen maken met de productnamen en relatieve afbeeldingen in uw werkblad.

2. En klik dan Kutools > Keuzelijst > Vervolgkeuzelijst met afbeeldingen, zie screenshot:

3. In de Vervolgkeuzelijst met afbeeldingen dialoogvenster, als u de kolommen met celwaarden en afbeeldingen hebt gemaakt, negeert u stap1 en selecteert u vervolgens het originele gegevens- en afbeeldingsbereik en het uitvoerbereik, zie screenshot:

4. En klik dan Ok knop, zijn de vervolgkeuzelijsten met afbeeldingen gemaakt in de geselecteerde cellen, en wanneer u een item uit de vervolgkeuzelijst selecteert, wordt de bijbehorende afbeelding onmiddellijk weergegeven, zie onderstaande demo:


Exporteer of bewaar alle afbeeldingen of afbeeldingen vanuit een Excel-bestand

Als er meerdere afbeeldingen in uw werkmap staan, en u wilt nu alle afbeeldingen uit het Excel-bestand extraheren en opslaan in een map. Hoe zou je deze taak in Excel kunnen oplossen?

Exporteer of bewaar alle afbeeldingen of afbeeldingen vanuit Excel met de functie Opslaan als

Normaal gesproken kunt u de Opslaan als functie om alle afbeeldingen uit de werkmap op te slaan, doe dit als volgt:

1. Klikken Dien in > Opslaan als, in de Opslaan als geef een map op waarin u de geëxporteerde bestanden wilt plaatsen en kies vervolgens Webpagina (*. Htm; *. Html) van de Opslaan als type vervolgkeuzelijst, zie screenshot:

2. En klik vervolgens op Bespaar knop, ga naar de specifieke map, u zult twee bestanden zien, een is het HTML-formaatbestand en een andere is een map die de afbeeldingen, grafieken of andere objecten uit de werkmap bevat. Zie screenshot:

3. Vervolgens kunt u alleen de afbeeldingen naar een andere map slepen als u nodig hebt.

Opmerking:: Door dit te gebruiken Opslaan als functie, krijgt u elke foto twee keer, de ene is kleiner, de andere is groter, zodat u de afbeeldingen met een hogere resolutie kunt opslaan als u nodig hebt.


Exporteer of bewaar alle afbeeldingen of afbeeldingen vanuit Excel door de bestandsextensie te wijzigen

Om alle afbeeldingen uit een Excel-bestand op te slaan, kunt u ook de bestandsextensie wijzigen in RAR. Doe alstublieft als volgt:

1. Wijzig de bestandsextensie xlsx naar zeldzaam zoals hieronder getoond screenshot:

2. Pak het bestand vervolgens uit en je ziet 3 mappen en 1 bestand in de map, zie screenshot:

3. Klik vervolgens om het xl map en open vervolgens het gemiddeld map, je zult zien dat alle afbeeldingen hier zonder duplicaten zijn opgeslagen, zie screenshot:


Exporteer of bewaar alle afbeeldingen of afbeeldingen vanuit Excel met een krachtige functie

Als je Kutools for Excel, Met Exporteer afbeeldingen functie, kunt u snel enkele specifieke objecten, zoals afbeeldingen, grafieken, vormen naar een afbeeldingsformaat exporteren als u dat nodig hebt.

Na het installeren van Kutools for Excel, voer dan de volgende stappen uit:

1. Klikken Kutools Plus > Importeren en exporteren > Exporteer afbeeldingen, zie screenshot:

2. In de Exporteer afbeeldingen dialoogvenster voert u de volgende bewerkingen uit:

  • Kies Foto's optie van de Types keuzelijst;
  • Specificeer een map om uw geëxporteerde afbeeldingen op te slaan;
  • Klik vervolgens op de vervolgkeuzelijst in het Export formaat om een ​​formaat voor uw afbeeldingen te kiezen.

3. Klik ten slotte op Ok knop, zijn alle afbeeldingen in de huidige werkmap opgeslagen in de map die je hebt opgegeven, zie screenshot:


Hernoem afbeeldingsnamen in een map op basis van een lijst met cellen in Excel

Als u veel afbeeldingen in een map heeft en u deze afbeeldingen nu een andere naam wilt geven, hoe kunt u deze taak dan op een gemakkelijke manier in Excel oplossen?

In Excel moet u eerst alle oude afbeeldingsnamen in een kolom vermelden, vervolgens de nieuwe namen typen en ten slotte een VBA-code toepassen om de oude namen in één keer door de nieuwe namen te vervangen. Voer de onderstaande stappen uit:

1. Maak een lijst van alle afbeeldingsnamen in een lijst met cellen, of u kunt de onderstaande code toepassen om alle afbeeldingsnamen in een specifieke map weer te geven zonder ze een voor een handmatig te typen.

2. Houd ingedrukt ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen Venster.

3. Klikken Invoegen > Moduleen plak de volgende macro in het Module venster.

VBA-code: lijst met alle afbeeldingsnamen uit een map

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. Druk vervolgens op F5 sleutel om deze code uit te voeren, en er verschijnt een promptvenster, klik op een cel om de afbeeldingsnamen uit te voeren, zie screenshot:

5. Dan klikken OK, Andere Blader dialoogvenster verschijnt, selecteer de map met de afbeeldingen waarvan u alle afbeeldingsnamen wilt weergeven, zie screenshot:

6. Klikken OK, zijn alle afbeeldingsnamen in de specifieke map in de cellen weergegeven, zie screenshot:

7. Typ vervolgens de nieuwe namen die u nodig hebt in een andere kolom, zoals onderstaand screenshot:

8. En dan kunt u de onderstaande code toepassen om de afbeeldingen te hernoemen, blijf drukken ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen Venster.

9. Klikken Invoegen > Moduleen plak de volgende macro in het Module venster.

VBA-code: hernoem meerdere bestanden in een map

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

Opmerking:: In de bovenstaande code, A: A geeft de lijst met oude afbeeldingsnamen aan waarvan u de naam wilt wijzigen, en B bevat de nieuwe afbeeldingsnamen die u wilt gebruiken, u kunt deze naar wens wijzigen.

10. Druk vervolgens op F5 sleutel om deze code uit te voeren, en in de pop-out Blader venster, selecteer de map met de afbeelding die u wilt hernoemen, zie screenshot:

11. En klik dan OK knop, zijn alle afbeeldingsnamen vervangen door de nieuwe namen zoals hieronder getoond screenshot:


Vergroot of verklein de afbeelding door erop te klikken

Stel dat u een kleine afbeelding in het werkblad hebt ingevoegd, nu wilt u de afbeelding vergroten door erop te klikken en verkleinen wanneer u opnieuw klikt, zoals hieronder wordt getoond. Hoe zou je deze taak in Excel kunnen oplossen?

Om de afbeelding te vergroten of te verkleinen door erop te klikken, kan de volgende code u een plezier doen. Voer de onderstaande stappen uit:

1. Klik met de rechtermuisknop op de afbeelding en kies Wijs macro toe, zie screenshot:

2. Toen kwam het eruit Wijs macro toe dialoogvenster, klik op de Nieuw knop, zie screenshot:

3. In de Microsoft Visual Basic voor toepassingen -venster, kopieer en plak de onderstaande code tussen de Sub als End Sub codes. Zie screenshot:

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. Druk vervolgens op Alt + Q toetsen om de Microsoft Visual Basic voor toepassingen venster. Als u nu op de afbeelding klikt, wordt deze vergroot tot het formaat dat u hebt opgegeven, en als u er nogmaals op klikt, wordt het verkleind tot het oorspronkelijke formaat zoals hieronder wordt getoond:


Laat een afbeelding altijd zweven wanneer u door het werkblad scrolt

Soms wilt u een afbeelding op het werkbladscherm laten zweven, ook al scrolt u omhoog of omlaag in het werkblad, zodat u de afbeelding altijd kunt zien. In dit gedeelte zal ik een snelle truc introduceren waarmee u deze taak in Excel kunt afhandelen. Voer de volgende stappen uit:

1. Voeg eerst een afbeelding in die u wilt gebruiken.

2. Klik vervolgens met de rechtermuisknop op de bladtab die de afbeelding bevat die u altijd zichtbaar wilt houden, en kies vervolgens Bekijk code vanuit het contextmenu. In het geopende Microsoft Visual Basic voor applicaties venster, kopieer en plak de onderstaande code in de lege module:

VBA-code: laat een afbeelding altijd zweven in een werkblad

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

Opmerking:: In deze code, de Afbeelding 1 is de naam van de afbeelding die u heeft ingevoegd, wijzig deze naar uw behoefte.

3. Sla vervolgens het codevenster op en sluit het, nu, wanneer u door het werkblad scrolt en op een cel klikt, wordt de afbeelding altijd in de rechterbovenhoek van het werkblad bewaard. Zie screenshot:


Verwijder afbeeldingen of afbeeldingen van het actieve blad / een reeks cellen

Heeft u een snelle manier om alle afbeeldingen uit een werkblad, een celbereik of de huidige werkmap te verwijderen? In dit gedeelte zal ik enkele methoden introduceren om deze taak in Excel op te lossen.

Verwijder afbeeldingen of afbeeldingen van het actieve blad met VBA-code

Om de afbeeldingen uit het huidige werkblad te verwijderen, kan de onderstaande VBA-code u helpen, doe dit als volgt:

1. Activeer het werkblad met de afbeeldingen die u wilt verwijderen.

2. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

3. Klikken Invoegen > Moduleen plak de volgende macro in het Module Venster.

VBA-code: verwijder alle afbeeldingen uit het huidige werkblad

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

4. Druk vervolgens op F5 toets om deze code uit te voeren, en alle afbeeldingen in het actieve werkblad worden in één keer verwijderd.


Verwijder afbeeldingen of afbeeldingen uit een reeks cellen met VBA-code

Als u de afbeeldingen alleen uit een reeks cellen moet verwijderen, is hier een andere eenvoudige code die u kan helpen.

1. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. Klikken Invoegen > Moduleen plak de volgende macro in het Module Venster.

VBA-code: verwijder de afbeeldingen uit een reeks cellen

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

Opmerking:: In de bovenstaande code, B4: C6 is het bereik waaruit u de afbeeldingen wilt verwijderen.

3. Druk vervolgens op F5 toets om deze code uit te voeren, en de afbeeldingen in het geselecteerde bereik zullen in één keer worden verwijderd, zie screenshots:


Verwijder afbeeldingen of afbeeldingen van het actieve blad, geselecteerde bladen, alle bladen met een handige functie

Als je Kutools for Excel, Met Verwijder illustraties en objecten functie, kunt u de afbeeldingen snel verwijderen van een werkblad, enkele geselecteerde bladen of een hele werkmap.

Na het installeren van Kutools for Excel, voer dan de volgende stappen uit:

1. Klikken Kutools > Delete > Verwijder illustraties en objecten, zie screenshot:

2. In het geopende Verwijder illustraties en objecten dialoogvenster, vink aan Foto's van de Delete sectie en geef vervolgens het bereik op waarvan u de afbeeldingen wilt verwijderen onder het kijk in sectie, zie screenshot:

3. Dan klikken Ok knop, en alle afbeeldingen worden verwijderd uit het werkblad, geselecteerde werkbladen of de hele werkmap zoals u hebt opgegeven.



  • Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
  • Voeg cellen / rijen / kolommen samen en het bewaren van gegevens; Gespleten cellen inhoud; Combineer dubbele rijen en som / gemiddelde... Voorkom dubbele cellen; Vergelijk Ranges...
  • Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
  • Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
  • Favoriete formules en snel invoegen, Bereiken, grafieken en afbeeldingen; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Draaitabel groeperen op weeknummer, dag van de week en meer ... Toon ontgrendelde, vergrendelde cellen door verschillende kleuren; Markeer cellen met formule / naam...
kte tabblad 201905
  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en vermindert elke dag honderden muisklikken voor u!
officetab onderkant
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    janick1980. · 1 months ago
    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?
    • To post as a guest, your comment is unpublished.
      skyyang · 1 months ago
      Hello, janick,
      The code works well in my workbook, do you select the correct folder contains the images? Please check it?

      Thank you!
  • To post as a guest, your comment is unpublished.
    DikshMishra · 1 months ago
    Hey, it was an amazing article thanks for sharing.
    Keep up the good work.

    source: https://tractorguru.in/tractor/new-holland-9010
  • To post as a guest, your comment is unpublished.
    saundersmarshall · 2 months ago
    This is a great article! I really like how you presented it so easy to understand