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
- 1.1 Afbeeldingen of afbeeldingen invoegen vanaf de computer
- 1.2 Afbeeldingen of afbeeldingen invoegen van internet of OneDrive
2. Vergrendel afbeeldingen of afbeeldingen in de Excel-cel
3. Voeg meerdere afbeeldingen of afbeeldingen in Excel in
- 3.1 Voeg meerdere afbeeldingen of afbeeldingen in en verklein ze zodat ze in cellen passen met VBA-code
- 3.2 Voeg meerdere afbeeldingen of afbeeldingen in en pas ze aan zodat ze in cellen passen met een krachtige functie
4. Voeg meerdere afbeeldingen of afbeeldingen in die overeenkomen met hun naam in cellen
- 4.1 Voeg meerdere afbeeldingen of afbeeldingen in die overeenkomen met hun naam met VBA-code
- 4.2 Voeg meerdere afbeeldingen of afbeeldingen in die overeenkomen met hun naam met een handige functie
5. Afbeeldingen of afbeeldingen van URL's invoegen of weergeven
- 5.1 Afbeeldingen of afbeeldingen van URL's met VBA-code invoegen of weergeven
- 5.2 Afbeeldingen of afbeeldingen van URL's invoegen of weergeven met een geweldige functie
6. Afbeeldingen of afbeeldingen van bestandspaden invoegen of weergeven
- 6.1 Afbeeldingen of afbeeldingen van bestandspaden met VBA-code invoegen of weergeven
- 6.2 Afbeeldingen of afbeeldingen van bestandspaden invoegen of weergeven met een geweldige functie
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
- 10.1 Afbeelding of afbeelding achter celinhoud invoegen met de functie Achtergrond
- 10.2 Voeg een transparante afbeelding of afbeelding in achter de celinhoud
- 10.3 Een transparante afbeelding of afbeelding achter de celinhoud invoegen als watermerk
11. Voeg een celbereik in als afbeeldings- of afbeeldingsindeling in Excel
- 11.1 Voeg een celbereik in als afbeelding of afbeeldingsformaat met de functie Kopiëren als afbeelding
- 11.2 Voeg een celbereik in als afbeelding of afbeeldingsformaat met de camera-tool
- 11.3 Voeg een reeks cellen in als afbeeldings- of afbeeldingsformaat met een handige functie
12. Voeg een afbeelding of afbeelding dynamisch in op basis van de celwaarde
- 12.1 Afbeelding of afbeelding dynamisch op basis van celwaarde invoegen met de functie Benoemd bereik
- 12.2 Afbeelding of afbeelding dynamisch invoegen op basis van celwaarde met een handige functie
13. Exporteer of bewaar alle afbeeldingen of afbeeldingen vanuit een Excel-bestand
- 13.1 Exporteer of bewaar alle afbeeldingen of afbeeldingen vanuit Excel met de functie Opslaan als
- 13.2 Exporteer of bewaar alle afbeeldingen of afbeeldingen vanuit Excel met het wijzigen van de bestandsextensie
- 13.3 Exporteer of bewaar alle afbeeldingen of afbeeldingen vanuit Excel met een krachtige functie
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 Properties 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 Openen venster, kies de map die de afbeeldingen bevat, selecteer vervolgens de afbeeldingen die u wilt invoegen en klik vervolgens op Openen 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 Koetools 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
Note: 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 Koetools 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
Opmerkingen: 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 pagina.
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:
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 het 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
Note: 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.
Note: 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 het 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 het 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 het 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.
Note: 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 het 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.
Note: 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 Koetools 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
Note: 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 New knop, zie screenshot:
3. In de Microsoft Visual Basic voor toepassingen -venster, kopieer en plak de onderstaande code tussen de Sub en 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
Note: 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
Note: 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 > Verwijder > Verwijder illustraties en objecten, zie screenshot:
2. In het geopende Verwijder illustraties en objecten dialoogvenster, vink aan Foto's van het Verwijder 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.
De beste tools voor kantoorproductiviteit
Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%
- 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...
- 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 honderden muisklikken voor u elke dag!