Thema Datum  Von Nutzer Rating
Antwort
04.09.2013 16:48:45 Daniel
NotSolved
Blau Aus Bildern Aufnahmedatum auslesen, vergangene Zeit berechen und umbenennen
 04.09.2013 20:11:51 Gast69060
NotSolved
05.09.2013 17:41:02 Daniel
NotSolved
06.09.2013 11:12:29 Gast53285
Solved

Ansicht des Beitrags:
Von:
Gast69060		 Datum:
04.09.2013 20:11:51		 Views:
1950		 Rating:
     
Antwort:
  Ja
Thema:
Aus Bildern Aufnahmedatum auslesen, vergangene Zeit berechen und umbenennen

Wegen dem Aufnahmedatum - versuchs mal so:

Option Explicit

Public Sub Test_EXIF()
  
  Dim objImage As Object
  Dim objProp As Object
  
  On Error Resume Next
  
  Set objImage = CreateObject("WIA.ImageFile")
  
  If CBool(Err.Number) Then
    Call MsgBox("CreateObject(""WIA.ImageFile"") fehlgeschlagen.", vbCritical)
    Exit Sub
  End If
  
  Call objImage.LoadFile("d:\bild.jpg")
  
  If CBool(Err.Number) Then
    Call MsgBox("LoadFile() fehlgeschlagen.", vbCritical)
    Exit Sub
  End If
  
  ' Daten im Direktbereich (ggf. anzeigen mit STRG+G) von VBA ausgeben
  For Each objProp In objImage.Properties
    Debug.Print objProp.Name; Tab(35); objProp.Value
  Next
  
  Set objImage = Nothing
  
End Sub

Unter den Ausgaben müsste sich das Aufnahmedatum befinden (vermutlich mit den Namen 'DateTime').

Du kannst diesen Wert entspr. dem namen auch einzeln abrufen - z.B. so:

Debug.Print objImage.Properties("DateTime").Value

 

Gruß

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
04.09.2013 16:48:45 Daniel
NotSolved
Blau Aus Bildern Aufnahmedatum auslesen, vergangene Zeit berechen und umbenennen
 04.09.2013 20:11:51 Gast69060
NotSolved
05.09.2013 17:41:02 Daniel
NotSolved
06.09.2013 11:12:29 Gast53285
Solved