Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe tekst vervangen door overeenkomstige afbeeldingen in Excel?

doc vervang tekst door afbeelding 1  2 doc vervang tekst door afbeelding 2

Laten we zeggen dat ik een lijst met productnamen in een werkblad heb en dat er een map is met de bijbehorende afbeeldingen van de productnamen op de computerschijf. Nu moet ik de productnamen zoeken en vervangen door hun relatieve afbeeldingen in Excel zonder ze één voor één in te voegen zoals weergegeven in de volgende schermafbeeldingen. Zijn er goede en snelle oplossingen om deze klus in Excel aan te pakken?

Vervang tekst door overeenkomstige afbeeldingen met VBA-code

Vervang tekst met overeenkomstige afbeeldingen met Kutools voor Excel


Afbeeldingen invoegen op basis van celwaarden in een kolom:

Doordat uw bureau Kutools for Excel's Match afbeeldingen importeren hulpprogramma, kunt u overeenkomende afbeeldingen snel en eenvoudig invoegen op basis van de celwaarden.

doc vervang tekst door afbeelding 12

Kutools for Excel: met meer dan 200 handige Excel-add-ins, gratis om zonder beperking in 60-dagen te proberen. Download en gratis proef nu!


Vervang tekst door overeenkomstige afbeeldingen met VBA-code


Normaal gesproken is er geen gemakkelijke en directe manier om de relatieve afbeeldingen in te voegen op basis van de tekenreeks in Excel, maar met de volgende VBA-code kunt u de tekst vervangen door de bijbehorende afbeelding.

1. Persberichten Alt + F11 om de Microsoft Visual Basic voor toepassingen venster.

2. Klik in het venster bijvoegsel > module om een ​​nieuw modulevenster te tonen, kopieer en plak dan de volgende VBA-code in de module venster.

VBA-code: vervang tekst door overeenkomstige afbeeldingen

Sub InsertPicture()
'Upadateby20150423
Dim xPath As String
Dim xLastRow As Long
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
xPath = "C:\Users\dt\Desktop\Fruits\"
If Right(xPath, 1) <> "\" Then xPath = xPath & "\"
xLastRow = Cells(Rows.Count, "A").End(xlUp).Row
For Each Rng In WorkRng
    If Rng.Value <> "" Then
        If Dir(xPath & Rng.Value & ".jpg") <> "" Then
            ActiveSheet.Pictures.Insert(xPath & Rng.Value & ".jpg").Select
            With Selection.ShapeRange
                .LockAspectRatio = msoFalse
                .Left = Rng.Left
                .Top = Rng.Top
                .Width = Rng.Width
                .Height = Rng.Height
            End With
            Rng.ClearContents
        Else
            Rng.Value = "N/A"
        End If
    End If
Next
Application.ScreenUpdating = True
End Sub

3. Druk vervolgens op F5 toets om deze code uit te voeren en selecteer het gegevensbereik waarin u de bijbehorende afbeeldingen wilt invoegen in het pop-outvenster, zie screenshot:

doc vervang tekst door afbeelding 3

4. En klik vervolgens op OK knop, alle bijbehorende afbeeldingen met dezelfde grootte als de cellen worden vervangen door de originele tekst, zie screenshots:

doc vervang tekst door afbeelding 4  2 doc vervang tekst door afbeelding 5

Opmerkingen:

1. In de bovenstaande code moet u het mappad van de afbeeldingen naar uw behoefte wijzigen, xPath = "C: \ Users \ dt \ Desktop \ Fruits \".

2. Als er geen overeenkomende afbeeldingen zijn die overeenkomen met de tekst, wordt de foutmelding Nvt weergegeven.


Vervang tekst met overeenkomstige afbeeldingen met Kutools voor Excel

Omdat de bovenstaande code moeilijk te beheersen is, zal ik u hier een eenvoudige en krachtige tool voorstellen - Kutools voor Excel, met de functie Match Import Pictures, kunt u snel en gemakkelijk de afbeeldingen invoegen zodat deze overeenkomen met de lijst met tekst.

Kutools for Excel : met meer dan 300 handige Excel-invoegtoepassingen, gratis om zonder beperking te proberen in 60-dagen.

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

1. Klikken Enterprise > Import / Export > Match afbeeldingen importerenzie screenshot:

doc vervang tekst door afbeelding 6 6

2. In de Match afbeeldingen importeren dialoogvenster, klik doc vervang tekstknop 1 om het bereik te selecteren dat u wilt matchen met de foto's, zie screenshot:

doc vervang tekst door afbeelding 7 7

3. Dan in de Match afbeeldingen importeren dialoogvenster, klik Toevoegen > filet or Map om de foto's te vinden die u wilt invoegen, zie screenshot:

doc vervang tekst door afbeelding 8 8

4. Nadat u de bijbehorende afbeeldingen hebt ingevoegd, klikt u op Importgrootte knop, in het volgende Afbeeldingsgrootte importeren dialoogvenster, geef één optie op voor de grootte van uw afbeelding. Zie screenshot:

doc vervang tekst door afbeelding 9 9

5. Dan klikken OK > importen kies vervolgens een cel om uw relatieve afbeeldingen uit de pop-out te lokaliseren Match afbeeldingen importeren dialoogvenster (u kunt ook de originele cel van de tekst selecteren), zie screenshot:

doc vervang tekst door afbeelding 10 10

6. En klik vervolgens op OK knop, alle afbeeldingen die overeenkomen met de tekst zijn ingevoegd in het werkblad, zie screenshot:

doc vervang tekst door afbeelding 11 11

Opmerkingen:

1. Als er geen overeenkomende afbeeldingen met de tekst zijn, zal de cel niets invoegen.

2. Als u foto's horizontaal wilt invoegen, kunt u dit controleren Vul horizontaal cel na cel in de Bestelling importeren sectie.

Download en proef Kutools nu voor Excel!


Demo: tekst vervangen door overeenkomstige afbeeldingen met Kutools voor Excel

Kutools for Excel: met meer dan 200 handige Excel-add-ins, gratis om zonder beperking in 60-dagen te proberen. Download en gratis proef nu!


Kutools voor Excel - De beste Office-productiviteitstool Verhoog uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Coderen van cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula Bar (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken op gefilterd bereik...
  • Cellen / rijen / kolommen samenvoegen zonder gegevens te verliezen; Inhoud gesplitste cellen; Combineer dubbele rijen / kolommen... voorkomen dubbele cellen; Ranges vergelijken...
  • Selecteer Dupliceren of Uniek rijen; Selecteer Lege rijen (alle cellen zijn leeg); Super Find en Fuzzy Find in veel werkboeken; Willekeurig selecteren ...
  • Exacte kopie Meerdere cellen zonder formule-referentie te wijzigen; Automatisch referenties maken naar meerdere vellen; Voeg kogels toe, Selectievakjes en meer ...
  • extract Text, Tekst toevoegen, verwijderen op positie, Verwijder de spatie; Subtotalen voor paging maken en afdrukken; Converteren tussen cellen Inhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerde sortering 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...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Volledige functionaliteit 60-daagse gratis proefversie.
kte-tab 201905

Tabblad Office Brengt interface met tabbladen naar Office en maakt uw werk veel eenvoudiger

  • Bewerken en lezen met tabbladen inschakelen in Word, Excel, PowerPoint, 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 verlaagt dagelijks honderden muisklikken voor u!
Officetab onderaan
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.