Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1840to1844
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Foto aufnehmen und in Zelle einfügen

Foto aufnehmen und in Zelle einfügen
11.08.2021 14:29:58
Ulli
Hallo Experten,
ich habe eine Frage und hoffe das vielleicht schon jemand damit Erfahrungen hat.
Ich möchte mit einem Makro aus einer Excel Datei heraus mit der Systemkamera (Laptop/Tablet) ein Foto aufnehmen und in die aktive Zelle einfügen.
Hat hier schon jemand Erfahrung?
(Für alte Webcams mit Twain-Treibern gibt es eine Lösung, die funktioniert aber leider nur bei einigen wenigen ganz alten Kameras)
Vielen Dank für eure Hilfe.
https://www.herber.de/bbs/user/147552.xlsm
Gruß Ulli

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Foto aufnehmen und in Zelle einfügen
11.08.2021 17:54:36
Herbert_Grom
Hallo Ulli,
ich würde den "normalen" Weg gehen, das Foto in einem Ordner ablegen und dann importieren. Aber wie gesagt, dass ist nur mein Vorschlag.
Servus
AW: Foto aufnehmen und in Zelle einfügen
11.08.2021 18:14:47
Ulli
Hallo Herbert,
danke für deine Rückmeldung.
ja, falls die Kamera nicht aufgerufen werden kann und der Prozess entsprechend automatisiert abläuft, wird es wahrscheinlich nicht anders gehen.
Frage:
besteht denn die Möglichkeit über ein Makro das letzte (neuste) Foto aus dem "Standard Ordner Bilder" in die aktive Zelle einzufügen?
Das würde schon sehr weiter helfen.
Gruß Ulli
AW: Foto aufnehmen und in Zelle einfügen
12.08.2021 10:46:31
Herbert_Grom
Hallo Ulli,
klar geht das! Und zwar mit einem 15 Jahre alten Code von Hajo Ziplies (manchmal hilft auch googlen):

Sub Dateiliste_Neu() 'jüngste Datei feststellen
Dim StrDatei As String
Dim I As Integer
Dim StrTyp As String
Dim Dateiname As String
Dim Dateiname_neu As String
Dim Zeit As Date
strVerzeichnis = "E:\xxx\xxx\" '* ""
If Zeit 
Servus
Anzeige
AW: Foto aufnehmen und in Zelle einfügen
12.08.2021 10:57:34
Ulli
Hallo Herbert,
vielen Dank für deine Hilfe und Mühe ! super
Diesen Treffer hatte ich leider in Google nicht gefunden.
Gruß Ulli
AW: Bitte sehr & danke für die Rückmeldung! owt
12.08.2021 11:56:40
Herbert_Grom
,,,

342 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige