VBAを使用してExcelワークシートのEXIF情報を取得する方法

Question

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 

Answer 1

幸運なことに、あなたには幸いなことに、正確にこれを行うオーストラリアのNorth Central Catchment Management AuthorityからのAndrew Phillipsによる美しい作品of codingがあります。

私は再リストに見ていないこのここ

現在のコードは、私の場合、私は32から機能を変更するために必要な、Excelへのアクセスからインポートすることができますので、それがクラスモジュールとして提供されように64ビット：これに

限り

プライベート宣言機能VirtualAllocのLibの "kernel32の"（ロングとしてByVal住所、ロング、ロングとしてByVal AllocationTypeとしてByValサイズ、限り保護BYVAL）を使用して

プライベート宣言PtrSafe機能VirtualAllocのLibの "kernel32の" あなたの迅速な対応のための

Answer 2

Excelのレンダリングされた画像は、通常、拡張メタファイル（EMF）内に埋め込まれています。メタファイルをEMFとしてクリップボードにコピーし、EMFのレコードを列挙してJPGを抽出し、次にJPG情報からEXIFデータを解析する必要があります。

また、Excelファイルが保存され、XLSX/XLSM形式である場合は、圧縮されたXLSX/XLSMコンテナからJPGを抽出し、そのイメージをEXIFデータ用に解析できます。

いずれの方法も実装するのは簡単ではなく、どちらの場合も.NETで簡単にできます。