Metadata aanpassen van foto bestanden

[thierry92]

Hallo,

ik zou graag via een macro (VBA) serie codes willen toevoegen aan de label(tags) van fotobestanden (.CR2), is dit mogelijk en zou iemand mij hiermee op weg kunnen helpen.


alvast bedank,

m.v.g.
Thierry

 

[alphamax]

Met onderstaande code kan je alle getdetailsof van een bestand uitlezen.
Kijk eens als daar de eigenschappen tussenzitten die je wil aanpassen

Option Explicit

Public Sub GetDetailsOf()

    Dim FILE As String
    Dim FOLDER As String
    Dim oFolder As Object
    Dim oFolderItem As Object
    Dim oShell As Object
    Dim vItem As Variant

    FOLDER = "C:\Users\Name\Downloads"
    FILE = "E1DXINBI000050.CR2"

    Range("A1").CurrentRegion.ClearContents

    Set oShell = CreateObject("Shell.Application")
    Set oFolder = oShell.Namespace((FOLDER))
    Set oFolderItem = oFolder.ParseName(FILE)

    For vItem = 0 To 288
        Cells(vItem + 1, 1).Value = vItem
        Cells(vItem + 1, 2).Value = oFolder.GetDetailsOf(oFolderItem, vItem)
    Next

    Range("A1").CurrentRegion.Columns.AutoFit

End Sub

kijk even in dit draadje voor de betekenis van de codes, zie https://stackoverflow.com/questions...are-available-for-shell32-folder-getdetailsof

 

[thierry92]

hallo,

allereerst dank voor je reactie.

ik krijg alleen maar informatie over de eerste 6 opties als resultaat
0 _MG_0351
1 27,3 MB
2 CR2-bestand
3 8-4-2020 13:19
4 10-10-2020 14:26
5 10-10-2020 18:47
6 A
7
8
9

daarna blijft het leeg, is verder niet erg want die info heb ik ook niet nodig,

ik zou graag de tags of de title aan kunnen passen via een vba script waarbij ik meerdere foto's tegelijk kan selecteren en dezelfde serie code hieraan kan toevoegen.

[18] = Tags

[21] = Title