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

or

Hoe hernoem ik alle afbeeldingsnamen in een map volgens een lijst met cellen in Excel?

Heb je ooit geprobeerd afbeeldingen te hernoemen volgens een lijst met cellen in een blad? Zo ja, heb je trucjes om de klus snel af te handelen zonder ze een voor een te hernoemen? In dit artikel introduceer ik twee VBA-codes om deze taak snel in Excel af te handelen.

Hernoem alle afbeeldingsnamen in een map


Bestandslijst

Is er ooit een probleem opgetreden dat alle bestandsinformatie uit een map naar een blad weergeeft? Hier de Bestandslijst of Kutools voor Excel kan alle bestandsinformatie inclusief bestandsnaam, bestandspad, bestandsgrootte enzovoort van een map naar een blad weergeven en u kunt ook de bestandsstijl opgeven die u uit een map wilt weergeven.
lijst met doc bestandsnamen

Hernoem alle afbeeldingsnamen in een map


Als u de naam van alle afbeeldingsnamen in een opgegeven map wilt wijzigen, moet u eerst de originele namen in het blad vermelden.

1. druk op Alt + F11 toetsen om de Microsoft Visual Basic voor toepassingen venster.

2. klikken bijvoegsel > module en plak onderstaande code in het script.

VBA: verkrijg afbeeldingsnamen van een map

Sub PictureNametoExcel()
'UpdatebyExtendoffice201709027
    Dim I As Long
    Dim xRg As Range
    Dim xAddress As String
    Dim xFileName As String
    Dim xFileDlg As FileDialog
    Dim xFileDlgItem As Variant
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Select a cell to place name list:", "KuTools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Set xRg = xRg(1)
    xRg.Value = "Picture Name"
    With xRg.Font
    .Name = "Arial"
    .FontStyle = "Bold"
    .Size = 10
    End With
    xRg.EntireColumn.AutoFit
    Set xFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
    I = 1
    If xFileDlg.Show = -1 Then
        xFileDlgItem = xFileDlg.SelectedItems.Item(1)
        xFileName = Dir(xFileDlgItem & "\")
        Do While xFileName <> ""
            If InStr(1, xFileName, ".jpg") + InStr(1, xFileName, ".png") + InStr(1, xFileName, ".img") + InStr(1, xFileName, ".ioc") + InStr(1, xFileName, ".bmp") > 0 Then
                xRg.Offset(I).Value = xFileDlgItem & "\" & xFileName
                I = I + 1
            End If
            xFileName = Dir
        Loop
    End If
    Application.ScreenUpdating = True
End Sub

3. druk op F5 toets om de code uit te voeren en er verschijnt een dialoogvenster om u eraan te herinneren een cel te selecteren om de namenlijst uit te voeren. Zie screenshot:
doc hernoem afbeelding in een map 1

4. klikken OK en om de opgegeven map te selecteren waarvan u de afbeeldingnamen in het huidige werkblad moet weergeven. Zie screenshot:
doc hernoem afbeelding in een map 2

5. klikken OK. De namen van de foto's zijn op het actieve blad vermeld.

Vervolgens kunt u de foto's hernoemen.

1. druk op Alt + F11 toetsen om de Microsoft Visual Basic voor toepassingen venster.

2. klikken bijvoegsel > module en plak onderstaande code in het script.

VBA: verkrijg afbeeldingen hernoemen

Sub RenameFile()
'UpdatebyExtendoffice20170927
    Dim I As Long
    Dim xLastRow As Long
    Dim xAddress As String
    Dim xRgS, xRgD As Range
    Dim xNumLeft, xNumRight As Long
    Dim xOldName, xNewName As String
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRgS = Application.InputBox("Select Original Names(Single Column):", "KuTools For Excel", xAddress, , , , , 8)
    If xRgS Is Nothing Then Exit Sub
    Set xRgD = Application.InputBox("Select New Names(Single Column):", "KuTools For Excel", , , , , , 8)
    If xRgD Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    xLastRow = xRgS.Rows.Count
    Set xRgS = xRgS(1)
    Set xRgD = xRgD(1)
    For I = 1 To xLastRow
        xOldName = xRgS.Offset(I - 1).Value
        xNumLeft = InStrRev(xOldName, "\")
        xNumRight = InStrRev(xOldName, ".")
        xNewName = xRgD.Offset(I - 1).Value
        If xNewName <> "" Then
            xNewName = Left(xOldName, xNumLeft) & xNewName & Mid(xOldName, xNumRight)
            Name xOldName As xNewName
        End If
    Next
    MsgBox "Congratulations! You have successfully renamed all the files", vbInformation, "KuTools For Excel"
    Application.ScreenUpdating = True
End Sub

3. druk op F5 toets om de code uit te voeren en er verschijnt een dialoogvenster om u eraan te herinneren de oorspronkelijke afbeeldingsnamen te selecteren die u wilt vervangen. Zie screenshot:
doc hernoem afbeelding in een map 3

4. klikken OKen selecteer de nieuwe namen waarvan u de afbeeldingsnamen wilt vervangen in het tweede dialoogvenster. Zie screenshot:
doc hernoem afbeelding in een map 4

5. klikken OK, er verschijnt een dialoogvenster om u eraan te herinneren dat de namen van de afbeeldingen met succes zijn vervangen.
doc hernoem afbeelding in een map 5

6. Klik op OK en de namen van de afbeeldingen zijn vervangen door de cellen in het blad.

doc hernoem afbeelding in een map 6
doc pijl naar beneden
doc hernoem afbeelding in een map 7

Relatieve artikelen:


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

  • 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 en gegevens bewaren; Inhoud gesplitste cellen; Combineer dubbele rijen en som / gemiddelde... 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 ...
  • Favoriete en snel formules invoegen, Bereiken, grafieken en afbeeldingen; Coderen van cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • 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. Werkt met Office 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in bedrijf. 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.
  • To post as a guest, your comment is unpublished.
    Sam Jones · 1 years ago
    Hi, i've tried using this however running the 'PictureNametoExcel' macro only returns the first photo file path name. The other photos in the folder wont be listed. Any help would be greatly appreciated.

    Side note: I've tested the 'RenameFile' Macro and that works perfectly

    Thanks
    Sam