Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
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
1320to1324
1320to1324
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bilder (jpg) aus Verzeichnis einfügen - NEU

Forumthread: Bilder (jpg) aus Verzeichnis einfügen - NEU

Bilder (jpg) aus Verzeichnis einfügen - NEU
16.07.2013 15:16:02
Tobias
Hallo zusammen,
vielen Dank für https://www.herber.de/bbs/user/80570.xls . Funktioniert super!
Für mich stellt sich jedoch die Frage, ob ich die einzufügenden Bilder auch jeweils einer eigenen Zelle zuweisen kann (Beispiel: 1. Bild in "B1", zweites in "B2, drittes in "B3" usw.). Idealerweise könnte man im Auswahlmenü auch noch abfragen, welcher Zelle das erste Bild zugeordnet würde (für dieses Beispiel also z.B. B1).
Die Abhängigkeit zwischen Bildgröße und Zellengröße ist dabei für meine Zwecke eher vernachlässigbar...Hier kann ich die entsprechenden Zellengrößen im Vorfeld manuell festlegen. Wichtig ist jedoch, dass das Bild innerhalb einer Zelle liegt, um so z.B. Filter o.ä. zu ermöglichen.
Ich habe mich selbst kurz daran versucht, jedoch hab ich gemerkt, dass ich mit meinen VBA-Kenntnissen doch recht schnell am Ende bin.
Vorab vielen vielen Dank für Eure Mühen!
Tobias

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Bilder (jpg) aus Verzeichnis einfügen - NEU
17.07.2013 01:30:45
fcs
Hallo Tobias,
ich hab den Code im Userform mal an deine Wunschliste angepasst.
Beim Start des Userforms wird nach der Startzeile und Startspalte für das Einfügen der Bilder gefragt.
Hierfür kannst du natürlich auch noch Felder im Userform einbauen.
Die Zeilenhöhe und die Spaltenbreite werden automatisch an die Größe der eingefügten Bilder angepasst.
Dabei kann die Spaltenbreite nur in etwa angepasst werden, da die Spaltenbreite nicht in Punkten angegeben werden kann.
Gruß
Franz
https://www.herber.de/bbs/user/86410.xls

Anzeige
AW: Bilder (jpg) aus Verzeichnis einfügen - NEU
17.07.2013 09:29:04
Tobias
Hallo Franz,
vielen Dank. Genauso habe ich mir das Ganze vorgestellt.
Einen Haken gibts noch: Wenn ich das Makro mehrmals in einem Dokument verwende (sprich: ich habe schon Bilder eingefügt und füge dann nachträglich weitere hinzu) werden die bereits vorhandenen Bilder wieder gelöscht. Kannst du mir hierbei vielleicht auch noch weiterhelfen?
Besten Dank!
Tobias

Anzeige
AW: Bilder (jpg) aus Verzeichnis einfügen - NEU
17.07.2013 11:57:11
fcs
Hallo Tobias,
über das löschen der schon eingefügten Bilder hab ich mich auch etwas gewundert, aber scheinbar wollte der ursprüngliche Erfinder des Makros dies so.
Die folgenden beiden Prozeduren im Userform Code muss du anpassen/austauschen.
Beim Starten des Userforms wird einmalig gefragt, ob die vorhandenen Bilder gelöscht werden soll.
Gruß
Franz 
Private Sub Image1_Click()
Dim strPath As String
Dim lngRet As Long
strPath = fncBrowseForFolder(txtPath)
If Len(strPath) Then
lngCount = 0
lngIndex = 0
txtPath = strPath
lngRet = FileSearchINFO(objFiles, txtPath, "*.jpg")
If lngRet > 0 Then loadImage
End If
End Sub
Private Sub UserForm_Activate()
Dim objShp As Shape
dblF = Application.CentimetersToPoints(1)
SpinButton1.Value = 10
lngZeile_1 = Application.InputBox( _
"1. Zeile in der ein Bild eingefügt werden soll (Standard ist Zeile 1)?", _
"Startzeile", 1, Type:=1)
If lngZeile_1 = 0 Then lngZeile_1 = 1
lngZeile = lngZeile_1
lngSpalte_1 = Application.InputBox( _
"1. Spalte in der ein Bild eingefügt werden soll (Standard ist Spalte 1)?", _
"Startspalte", 1, Type:=1)
If lngSpalte_1 = 0 Then lngSpalte_1 = 1
lngSpalte = lngSpalte_1
ActiveSheet.Cells(lngZeile, lngSpalte).EntireColumn.ColumnWidth = 5
'ggf. vorhanden Bilder löschen
If MsgBox("Vorhandene Bilder löschen", vbQuestion + vbOKCancel + vbDefaultButton2, _
"Datei initialisieren") = vbOK Then
For Each objShp In Tabelle1.Shapes
If objShp.Type = msoPicture Or objShp.Type = msoLinkedPicture Then objShp.Delete
Next
End If
ActiveSheet.UsedRange.EntireRow.AutoFit
End Sub

Anzeige
AW: Bilder (jpg) aus Verzeichnis einfügen - NEU
17.07.2013 14:13:51
Tobias
Hallo Franz,
ja, das funktioniert grundsätzlich. Vielen Dank. Die Bilder werden zwar jetzt nicht mehr gelöscht, aber die "Anordnung der Zellen" wird leider wieder auf "Standard" gesetzt, so dass die ursprünglichen Bilder nicht mehr die entsprechende "automatische Zellenformatierung" aufweisen.
Vielleicht kannst du da nochmal kurz drüberschauen. Falls nicht, hast du mir in jedem Fall schonmal ein riesiges Stück weitergeholfen.
Tobias

Anzeige
AW: Bilder (jpg) aus Verzeichnis einfügen - NEU
17.07.2013 14:21:45
Tobias
Hallo Franz,
ich nochmal. Hab außnahmsweise auch mal selber was hinbekommen und das Problem gelöst. Jetzt bin ich erstmal rundum zufrieden ;-)
Also: nocheinmal recht herzlichen Dank für deine kompetente und vor allem schnelle Hilfe!
Tobias
;

Forumthreads zu verwandten Themen

Outlook-Kontakte, inkl. dem Bild, ins Excel exp.
Jan

Hallo zusammen
Ich möchte meine Outlook-Kontakte, inkl. dem Bild, ins Excel exportieren.
Ohne Bild ist es ja kein Problem, aber mit?
Wie mach ich das?
Bin für jeden Ratschlag dankbar!
Vielen Dank für eure Hilfe!
Gruss Jan
19.06.2009 11:12:03
Thread-ID: 1082824
2 Beiträge
Rangebereich aus Zwischenablage einfügen
Excellent

Hallo,
ich möchte gerne in unterschiedlichen Excelmappen manuell mit strg-c Bereiche kopieren. Diese Bereiche sind immer genau gleich groß und es gibt keine verbundenen Zellen.
Dann möchte ich mit einem Makro den Bereich aus der Zwischenablage in einen bestimmten Bereich eines Excelarbe...
24.09.2009 12:31:17
Thread-ID: 1105195
4 Beiträge
Anzeige
Bilder per Makro in Excel einfügen
stefanseevetal

Hallo zusammen!
Ich habe ein Problem, das ich mir nicht erklären kann. Ich füge nach einer Auswahl über den untenstehenden Code ein Bild im Tabellenblatt "Deckblatt" ein. Es soll gemäß dem Code oben links eingefügt werden. Leider funktioniert dies bei einigen Computern nicht und das Bild wi...
27.10.2009 19:27:47
Thread-ID: 1112579
4 Beiträge
Bild in Zellverbund einfügen
Markus

Hallo,
füge ich ein Bild (Einfügen Graphik) in einen Zellverbund (verbunde Zellen von A3 bis R13 ein,
so wird das Bild zwar eingefügt ....
aber die Grösse passt sich nicht dem Zellverbund an (Bild meistens zu gross);
es wird zudem nicht eingemittet (der Zellverbund wurde vorher...
29.10.2009 16:19:45
Thread-ID: 1113103
4 Beiträge
Anzeige
Bilder in Zelle einfügen wenn
Andre´

Hallo alle zusammen,
ich möchte für den Bereich C5:F10 Bilder einfügen (jeweils mittig in Zelle), in Abhängigkeit des Zellwertes.
Ist der Zellwert = 1 dann Bild1 von Tabelle "Bilder" einfügen
Ist der Zellwert = 2 dann Bild2 von Tabelle "Bilder" einfügen
Ist der Zellwert = 3 dann...
15.12.2009 09:51:03
Thread-ID: 1123961
5 Beiträge
Kopierten Text in E-Mail einfügen | Herbers Excel-Forum
Urmila
Hallo alle zusammen,
und schon habe ich eine andere Frage...
Mit dem folgenden Code generiere ich eine E-Mail im Excel Dim OutLookJob As Object, mymail As Object, month As Integer, year As Integer month = Format(Date, "MM") year = Format(Date, "YYYY") Set OutLookJob = CreateObject("Outlook....
13.01.2010 15:44:58
Thread-ID: 1129549
5 Beiträge
Bild von der userform in tabelle einfügen
der

Hallo Excelsfans,
ich habe auf einer userform ein bild (image). dieses möchte ich gern als bild in eine zelle einfügen
irgendwie so
cells(1,1).insert.picture=image1.picture
geht sowas?
gruß rocky
14.06.2010 19:14:52
Thread-ID: 1161836
3 Beiträge
Anzeige
Bild in Zelle einfügen.
Ernst

Hallo Exel Profis !
Ich würde mal wieder eure Hilfe benötigen.
Ich bräuchte ein makro das mir folgendes erfüllt, per Doppelklick in Zelle. g3 sollte sich der ordner C:\Dokumente und Einstellungen\Eigene Dateien\Eigene Bilder öffnen .Danach möchte ich mir ein bild auswählen können das si...
24.11.2010 12:48:35
Thread-ID: 1188515
4 Beiträge
Anzeige
Bilder in Zelle einfügen
Armin

Hallo,
ich füge mit folgendem Code Bilder aus einem Verzeichnis in Excel-Zellen untereinander ein:
Set pct = ActiveSheet.Pictures.Insert(strVerzeichnis & "\" & strDatei)
Wenn ich die Bilder z. B. 100 Stück aus einem Verzeichnis mit je 2 MB einfüge, wird die Excel-Datei zieml...
27.04.2011 00:19:02
Thread-ID: 1211877
3 Beiträge
Bild aus Userform in bestimmte Zeile einfügen
David

Moin Moin,
ich komme mal wieder nicht weiter... :-(
Vor kurzer Zeit habe ich das Problem gehabt, dass ich gerne Bilder in einer Userform anzeigen lassen wollte.
Nun soll im nächsten Schritt dieses Bild, welches mir in einem Image in der Userform angezeigt wird auch gleichzeitig in T...
07.06.2011 09:45:23
Thread-ID: 1217519
7 Beiträge
Hintergrundbild in alle Tabellen einfügen
Hans

Hallo liebe Experten.
Ich stehe mal wieder vor einem Problem.
Und zwar habe ich eine Excel Datei mit mehreren Tabellenblättern.
Nun möchte ich in jedem Tabellenblatt ein Hintergrundbild haben.
Dies habe ich über Format/Blatt/Hintergrund auch hinbekommen.
Ich würde jedoch ger...
14.06.2011 10:53:57
Thread-ID: 1218349
6 Beiträge
Einfach termin in Outlook einfügen
Sebastian

Hallo,
ich suche eine Möglichkeit wie ich einen Termin in Outlook über Excel einfügen kann.
Ich habe in den Zellen
A1 = Datum
A2 = Zeit
A3 = Terminname
A4 = Termininfo
Jetzt möchte ich gerne auf einen Butoon drück und ein Termin soll im Outlook eingetragen werden.
25.08.2011 22:47:40
Thread-ID: 1227606
2 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