Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako preimenovati vsa imena slik v mapo glede na seznam celic v Excelu?

Ali ste kdaj poskusili preimenovati slike glede na seznam celic v listu? Če je odgovor pritrdilen, ali imate kakšne trikove, da bi hitro opravili delo, ne da bi jih preimenovali po enega? V tem članku uvajam dve kodi VBA, s katerimi lahko hitro opravim to delo v Excelu.

Preimenujte imena vseh slik v mapi


Seznam datotek

Ali ste kdaj naleteli na težavo, da bi vse podatke o datotekah iz mape vstavili na list? Tukaj je Seznam datotek of Kutools foro Excel lahko vse datoteke navede podatke o datotekah, vključno z imenom datoteke, potjo datoteke, velikostjo datoteke in tako naprej iz mape na listo, lahko pa tudi določite slog datoteke, ki ga želite listati iz mape.
doc ime datoteke

Preimenujte imena vseh slik v mapi


Če želite preimenovati vsa imena slik v določeni mapi, morate najprej vnašati izvirna imena na listu.

1. Pritisnite Alt + F11 tipke, ki omogočajo Microsoft Visual Basic za aplikacije okno.

2. klik Vstavi > Moduli in prilepite spodnjo kodo v scenarij.

VBA: pridobite slikovna imena mape

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. Pritisnite F5 ključ za zagon kode, in pogovorno okno se izpiše, da vas opomni, da izberete celico, da boste lahko prikazali seznam imen. Prikaz slike:
doc preimenovati sliko v mapo 1

4. klik OK in izberite določeno mapo, katere slikovna imena morate navesti v trenutnem delovnem listu. Prikaz slike:
doc preimenovati sliko v mapo 2

5. klik OK. Imena slik so navedena na aktivnem listu.

Potem lahko slike preimenujete.

1. Pritisnite Alt + F11 tipke, ki omogočajo Microsoft Visual Basic za aplikacije okno.

2. klik Vstavi > Moduli in prilepite spodnjo kodo v scenarij.

VBA: preimenujte slike

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. Pritisnite F5 tipko za zagon kode in prikaže se pogovorno okno, ki vas opomni, da izberete izvirna imena slik, ki jih želite zamenjati. Prikaz slike:
doc preimenovati sliko v mapo 3

4. klik OKin v novem pogovornem oknu izberite nova imena, ki jih želite zamenjati. Prikaz slike:
doc preimenovati sliko v mapo 4

5. klik OKse prikaže pogovorno okno, ki vas opomni, da so bila imena slik uspešno zamenjana.
doc preimenovati sliko v mapo 5

6. Kliknite V redu in imena imen so zamenjale celice v listu.

doc preimenovati sliko v mapo 6
doc arrow navzdol
doc preimenovati sliko v mapo 7

Relativni členi:


Priporočena orodja za produktivnost za Excel

zavihek kte 201905

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!
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 · 10 months 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