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

【问题标题】：How do I modify metadata in JPG files with VBA如何使用 VBA 修改 JPG 文件中的元数据
【发布时间】：2014-10-14 08:40:42
【问题描述】：

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

我告诉他查看照片并在 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 的父母台式电脑上工作。感谢您的宝贵时间，我希望尚未得到答复。

【问题讨论】：

您使用的是什么操作系统。如果您使用的是 win 7 或 8，请使用附加 url 来帮助您。然后lifehacker.com/5826412/…
你想在哪里写这个标题？在 COM 标记中？在 APPn 标记中？在某些 JPEG 文件格式的标题中？
@user3344003 当您右键单击图像时，我不想在属性弹出的详细信息选项卡中。我需要很容易找到我父亲的信息，所以如果他正在看照片，如果他想阅读它的位置，只需将鼠标悬停在照片的文件图标上即可。
也许没有任何库就无法完成。我一直在阅读，我认为元数据可能是“xmp”格式。

标签： excel powershell metadata jpeg vba

【解决方案1】：

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

Exiftool 是一款不错的免费独立可执行文件，应该可以满足您的需求：

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

【讨论】：