Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.10.2025 10:29:26
Userform Multipage - Page auswählen
19.10.2025 21:57:06
Diagrammpunkte in unterschiedlichen Farben je nach Wert
19.10.2025 18:21:56
Prüfen, ob Bild geladen wurde
19.10.2025 15:24:14
VBA -Drucken nur, wenn ich mit bestimmtem WLAN verbunden bin
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1840to1844
1840to1844
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bild aus Ordner in Zelle einfügen

Forumthread: Bild aus Ordner in Zelle einfügen

Bild aus Ordner in Zelle einfügen
12.08.2021 08:20:12
Ulli
Hallo,
ich habe eine Frage.
Ich würde gerne mit einem Makro das letzte Bild (jüngstes Speicherdatum) aus dem Microsoft Standard Ordner für Bilder in die aktive Zelle des Excel Arbeitsblatt einfügen.
Der Pfad zum Ordner steht in Zelle "F3"
Das vorhandene Makro (BilderImport) fügt ein Bild ein, aber es ist nicht das letzte (neuste Bild)
Folgende Änderungen am Mako wären top:
1. Einfügen vom letzten (jüngste) Bild
2. Einfügen in aktive Zelle
3. Pfad zum Ordner aus Zelle "F3" übernehmen
Ist dies umsetzbar?
Vielen Dank für eure Unterstützung
https://www.herber.de/bbs/user/147573.xlsm
Gruß Ulli
Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bild aus Ordner in Zelle einfügen
12.08.2021 09:15:26
Ulli
Hallo Nepumuk,
einwandfrei, super!
Schön wäre noch wenn der Dateipfad nicht feste hinterlegt wäre .FolderPath = "C:\Users\UI\Pictures\" sondern aus der Zelle F3 übernommen würde und wenn das Bild der Zellgröße angepasst würde.
Werden nur .jpg berücksichtigt? oder kann ich unter .Extension = "*.jpg" auch andere vorgeben?
Viele Grüße Ulli
Anzeige
AW: Bild aus Ordner in Zelle einfügen
12.08.2021 09:59:46
Nepumuk
Hallo Ulli,
folgende Änderung:

Public Sub BilderImport()
Dim objFileSearch As clsFileSearch
Dim lngIndex As Long, lngFileCount As Long
Dim vntExtension As Variant
Set objFileSearch = New clsFileSearch
With objFileSearch
.Extension = "*.jpg"
.FolderPath = Tabelle1.Range("F3").Text
.SearchLike = "*"
.SubFolders = False
For Each vntExtension In Array("*.jpg", "*.gif", "*.bmp") 'Anpassen !!!
.Extension = vntExtension
lngFileCount = .Execute(Sort_by_Date_Create, Sort_Order_Descending)
Next
If lngFileCount > 0 Then
Call Tabelle1.Shapes.AddPicture(Filename:=.Files(1).Path, LinkToFile:=msoFalse, _
SaveWithDocument:=msoTrue, Left:=ActiveCell.Left, Top:=ActiveCell.Top, Width:=-1, Height:=-1)
Else
Call MsgBox("Keine Bilder gefunden.", vbExclamation, "Hinweis")
End If
End With
Set objFileSearch = Nothing
End Sub
Gruß
Nepumuk
Anzeige
AW: Bild aus Ordner in Zelle einfügen
12.08.2021 10:10:54
Ulli
Hallo Nepumuk,
einwandfrei,
nur die Anpassung vom Bild an die Zellgröße wird nicht umgesetzt?
(schön wäre wenn das Längen-Breiten Verhältnis bleiben würde)
Viele Grüße Ulli
AW: Bild aus Ordner in Zelle einfügen
12.08.2021 11:11:06
Nepumuk
Hallo Ulli,
dann mach es so:

Public Sub BilderImport()
Dim objFileSearch As clsFileSearch
Dim objShape As Shape
Dim lngIndex As Long, lngFileCount As Long
Dim vntExtension As Variant
Set objFileSearch = New clsFileSearch
With objFileSearch
.Extension = "*.jpg"
.FolderPath = Tabelle1.Range("F3").Text
.SearchLike = "*"
.SubFolders = False
For Each vntExtension In Array("*.jpg", "*.gif", "*.bmp") 'Anpassen !!!
.Extension = vntExtension
lngFileCount = .Execute(Sort_by_Date_Create, Sort_Order_Descending)
Next
If lngFileCount > 0 Then
Set objShape = Tabelle1.Shapes.AddPicture(Filename:=.Files(1).Path, LinkToFile:=msoFalse, _
SaveWithDocument:=msoTrue, Left:=ActiveCell.Left, Top:=ActiveCell.Top, Width:=-1, Height:=-1)
With objShape
.LockAspectRatio = msoTrue
.With = 100 'Anpassen !!!
.Height = 100 'Anpassen !!!
End With
Set objShape = Nothing
Else
Call MsgBox("Keine Bilder gefunden.", vbExclamation, "Hinweis")
End If
End With
Set objFileSearch = Nothing
End Sub
Gruß
Nepumuk
Anzeige
AW: Bild aus Ordner in Zelle einfügen
12.08.2021 11:40:28
Ulli
Hallo Nepumuk,
sorry, ich noch einmal.
ich kann mit dieser Erweiterung das Bild beim Einfügen anpassen, das klappt.
Gedacht war eigentlich, dass die Größe vom Bild beim Einfügen so skaliert wird, dass es in die aktive Zelle passt.(Seitenverhältnisse vom Bild nicht geändert, d.h. nicht verzerrt)
Ist das möglich.
Viele Grüße Ulli
Anzeige
AW: Bild aus Ordner in Zelle einfügen
12.08.2021 11:57:06
Rudi 

With objShape
.LockAspectRatio = msoTrue
.Width = ActiveCell.Width
.Height = ActiveCell.Height
'such dir was aus
End With
Gruß
Rudi
AW: Bild aus Ordner in Zelle einfügen
12.08.2021 12:23:07
Ulli
Hallo Rudi,
funktioniert! Danke
Ist es denn auch möglich dass das Bild grundsätzlich (egal ob hochkant oder quer) innerhalb der Zelle eingefügt wird?
Ich hatte mal folgendes gefunden.
Bekomme es aber nicht zusammen.
Gruss Ulli

Sub Bild_einfügen()
Const strPATH = "C:\Artikelbilder\"
Dim M As String
Dim rngZielZelle As Range
M = "C016510100000"
Set rngZielZelle = ActiveSheet.Cells(5, 1)              ' Zielzelle
With ActiveSheet.Pictures.Insert(strPATH & M & ".jpg")
.Top = rngZielZelle.Top
.Left = rngZielZelle.Left
With .ShapeRange
.LockAspectRatio = msoTrue
If .Height > rngZielZelle.Height Then .Height = rngZielZelle.Height
If .Width > rngZielZelle.Width Then .Width = rngZielZelle.Width
End With
End With
End Sub

Anzeige
AW: Bild aus Ordner in Zelle einfügen
12.08.2021 12:28:23
Nepumuk
Hallo Ulli,
was ist daran jetzt so schwer?

With objShape
.LockAspectRatio = msoTrue
If .Height > ActiveCell.Height Then .Height = ActiveCell.Height
If .Width > ActiveCell.Width Then .Width = ActiveCell.Width
End With
Gruß
Nepumuk
AW: Bild aus Ordner in Zelle einfügen
12.08.2021 12:35:59
Ulli
Hallo Nepumuk,
wieder eine Top Lösung, funktioniert tadellos.
Danke für deine Hilfe!!
(Dank auch an Rudi!)
Viel Grüße Ulli
Anzeige
;

Forumthreads zu verwandten Themen

Spaltentrennzeichen nach speichern in Text-Datei
Michael

Hallo
ich habe ein Problem. Vielleicht ist es schwierig, vielleicht aber auch nicht.
Ich habe eine Text-Datei mit Spaltentrennzeichen "|" (besser als ";" der Übersichtlichtlichkeit halber) und verschiedenen Längen der Spalten.
Ich will diese in Excel überarbeiten und als Text-Dat...
11.09.2008 09:28:00
Thread-ID: 1008978
3 Beiträge
Zahl vorn/hinten vom Text trennen + Komma
StefanK

Hallo Excel-Freunde
ich möchte gern per Formel folgendes lösen:
in zelle a3 steht
1 haley, bill rock around the clock 1956
jetzt soll in b3 die "1" stehen --- löse ich per Formel mit =LINKS(A3;SUCHEN(" ";A3)-1)
in e3 soll "1956" stehen --- löse ich mit Array-Formel {=...
25.09.2008 19:00:21
Thread-ID: 1012407
12 Beiträge
Zeichenkette in einer Zellesuchen
Gordon

Moin,
ich habe in einer Zelle (A1) einen Namen plus ein Datum dazu stehen: "Max Mustermann (01.01.1900)"
Nun möchte ich überprüfen, ob diese Zeichenkette, also Name plus Datum, nochmals in der Zelle A2 steht.
In der Zelle A2 stehen mehrere dieser Zeichenketten. Diese sind in einer...
26.09.2008 12:54:00
Thread-ID: 1012601
4 Beiträge
in spalte müssen 2 gleiche zahlen vorh. sein ...
Jessi

hallo zusammen,
suche nach einem makro, dass in spalte A überprüft ob von den dort geschriebenen zahlen jeweils zwei gleiche vorhanden sind. es geht um eine doppelbelegung eines zimmers. die zahl ist die zimmer-nr.
wäre z.b. nur einmal eine zahl in der spalte, wäre es möglich in das jew...
04.10.2008 15:33:00
Thread-ID: 1014154
5 Beiträge
Zeichen in Zelle automatisch kürzen
Andreas

Guten Tag,
ich habe Zellen mit jeweils 12 Stellen ausgefüllt (z.B. 000012345678) Davon hätte ich nun gerne automatisch die ersten 4 gelöscht (sodaß in diesem Beispiel dann in der Zelle nur 12345678 verbleibt)
Ist das mit Excel-Bordmitteln machbar?
Danke für Hilfe voarab,
Andreas...
09.10.2008 13:57:00
Thread-ID: 1015344
4 Beiträge
Unicode-Zeichen in Textfeld von Userform
Userform

Hallo,
Ich bin auf der Suche nach gut praktikablen Möglichkeiten in ein Textfeld eines Userforms Unicode-Zeichen (z.B. ć kleines c mit Akut - Code 0107 oder č kleines c mit Caron - Code 010D) einzutippen.
Danke im voraus für alle Tipps!
Grüße
Günther
12.10.2008 12:34:00
Thread-ID: 1015836
5 Beiträge
Eine Zahl mit vorhandener Zahlenliste vergleichen
Niklas

Hallo Leute!
Es geht darum, eine eingegebene Zahl mit einer vorhandenen Zahlenliste vergleichen und die beiden nächstgelegenen Zahlen der Zahlenliste verwenden!
zur veranschaulichung:
ich habe die die zahlenliste : 1 , 2, 3, 4, 5, 6, 7
der eingegebene Wert ist z.B 1.5 dann soll...
17.10.2008 09:49:22
Thread-ID: 1017045
8 Beiträge
Autofilter - Anzahl vorh. Sätze
KViertel

Hallo in die Runde,
In einem Tabellenblatt wird In VBA ein Autofilter gesetzt. Die dabei angezeigten Sätze sollen in ein anderes Tabellenblatt kopiert werden. Wenn jetzt keine Sätze vorhanden sind, wird die Sub abgebrochen. In der Recherche habe ich einen Hinweis zu Subtotal gefunden, weiß...
11.12.2008 11:45:00
Thread-ID: 1031999
3 Beiträge
Zeichenanzahl einer Textbox festlegen
Heinz

Hallo Leute
Habe eine Frage zum setzen einer Zeichenanzahl in einer Textbox.
Ich habe eine UF mit Textboxen, wo max.31 Zeichen enthalten sein dürfen.
Wie kann man diese bitte beschränken ?
Danke
Heinz
25.12.2008 21:05:00
Thread-ID: 1035243
5 Beiträge
Anzahl der Zeichen in einer Zelle
Jan

Guten Morgen
Welcher Befehl zählt die Zeichen in einer Zelle?
Danke
Gruß Jan
07.01.2009 08:38:00
Thread-ID: 1037436
3 Beiträge
Nur bestimmte Zeichen in Zelle
wolle

Erstmal ein Hallo an Alle und alles gute in 2009!
Ich hätte folgende Frage:
Wie kann ich es machen, dass in Spalte B von Zelle B10 bis Zelle Bxx nur die Zeichen "J" "j" "N" "n" eingeben werden können und bei Eingabe eines anderen Zeichens ein kleines Popup erscheint, das den Bediener in...
09.01.2009 11:22:25
Thread-ID: 1038162
3 Beiträge
Anzeige
zählen bestimmter Zeichen in einer Zelle
Georg

Hallo Excel Welt,
wie kann ich die Anzahl bestimmter Zeichen (z.B. Kommas) in einer Zelle zählen?
Beispiel:
A2 = 12, 34, 2, 134
B2 = 3 (es sind drei Kommas in der Zelle A2) = dafür benötige ich die Lösung
Oder kann ich die Anzahl der (durch Kommas getrennten) Zahlen direkt...
21.01.2009 16:03:36
Thread-ID: 1042267
6 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige