Bilder (jpg) aus Verzeichnis einfügen - NEU

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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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

Beliebteste Forumthreads (12 Monate)

Bilder (jpg) aus Verzeichnis einfügen - NEU

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

108 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Bilder (jpg) aus Verzeichnis einfügen - NEU

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

108 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread