Question

我需要对元数据进行批量修改，因为我父亲希望在文件夹中的所有"title"张图片中放置.jpg。

我告诉他查看照片并在Excel电子表格中写下要按顺序写下的信息。一个单元格一个文件。

所以我做了循环来阅读电子表格，但我不知道我需要使用哪些文件对象.jpg文件以及哪些方法可以读取或写入元数据标签。

MSDN对此毫无帮助。

一些代码

Sub seleccionaYmuesrtra()
'in the first column there are the file names.
'in the second column there are the titles written manually

Dim image As ????
???? Set image = New Bitmap("c:\FakePhoto.jpg")

Cells(1, 1).Activate 'I start in the first cell.
Dim contenido, ruta, nombre As String 'some variables

ruta = "C:\imagesToUseinFolder"

While (Not IsEmpty(ActiveCell))  'this goes down in the first column until the first empty cell.
    nombre = ruta & ActiveCell.Value & ".jpg"
    contenido = ActiveCell.Offset(1, 0).Value
    '------------------------------------
    'HERE GOES THE ACTION I DON'T KNOW
    ...
    '------------------------------------
    ActiveCell.Offset(1, 0).Activate 'MOVE ONE DOWN

Wend


End Sub

我在使用Windows7的笔记本电脑上工作，但我认为它应该可以在我父母的台式电脑上使用XP。谢谢你的时间，我希望还没有回答。

Answer 1

您可以尝试调用工具作为命令行命令（如果需要帮助调用，请参阅Execute a command in command prompt using excel VBA）

Exiftool是一个很好的免费，独立的可执行文件，可以做你想要的：

http://www.sno.phy.queensu.ca/~phil/exiftool/

如何使用VBA修改JPG文件中的元数据

1 个答案: