excel - 如何使用VBA从Excel工作表中的图片中获取EXIF信息

如何使用VBA从Excel工作表中的形状图片中获取EXIF信息(例如纬度，经度等)？是否可以在不从工作表或压缩的Excel工作簿中提取或复制图片的情况下获得它？

我可以使用以下代码遍历压缩的文件夹内容。

Public Sub ReadZip()
    Dim vZipFileName As Variant
    vZipFileName = "C:\Users\erogrou\Desktop\Test.zip"

    Dim objShell, objFolder
    Set objShell = CreateObject("shell.application")
    Set objFolder = objShell.Namespace(vZipFileName)

    Dim vFilename As Variant

    If (Not objFolder Is Nothing) Then
        Debug.Print objFolder.self.Path

        For Each vFilename In objFolder.items
            Debug.Print vFilename
        Next

    End If

    Set objFolder = Nothing
    Set objShell = Nothing

End Sub

最佳答案

幸运的是，澳大利亚北部中央集水区管理局的安德鲁·菲利普斯(Andrew Phillips)制作了一幅精美的of coding，正是这一点。

它作为类模块提供，因此我没有在这里重新列出

可以从Access到Excel导入当前代码，就我而言，我需要将功能从32位更改为64位:



为此使用PntSafe