Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
04.09.2013 16:48:45 |
Daniel |
|
|
Aus Bildern Aufnahmedatum auslesen, vergangene Zeit berechen und umbenennen |
04.09.2013 20:11:51 |
Gast69060 |
|
|
|
05.09.2013 17:41:02 |
Daniel |
|
|
|
06.09.2013 11:12:29 |
Gast53285 |
|
|
Von:
Gast69060 |
Datum:
04.09.2013 20:11:51 |
Views:
1547 |
Rating:
|
Antwort:
|
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ß
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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 |
|
|
Aus Bildern Aufnahmedatum auslesen, vergangene Zeit berechen und umbenennen |
04.09.2013 20:11:51 |
Gast69060 |
|
|
|
05.09.2013 17:41:02 |
Daniel |
|
|
|
06.09.2013 11:12:29 |
Gast53285 |
|
|