Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
716to720
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
716to720
716to720
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Bild aus Verzeichnis holen in Tabelle kopieren
08.01.2006 20:16:59
egon
Hallo Leute!
Ich möchte:
Den Bildnamen(Dateiname) Test wird aus der Zelle A1 geholt.
Aus dem Verzeichnis D:\Daten\ ein Bild, z.B Test.jpg suchen,
dann in Bildfeld Image1 einfügen.
Das Bild kann sich auch in einem Unterverzeichnis von D:\Daten befinden.
Also: D:\Daten\Harald, D:\Daten Meier D:\Daten\Bilder usw.
Wie krieg ich das hin?
Hab viel aus dem Forum probiert aber.....
Schönen Sonntag noch Egon

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bild aus Verzeichnis holen in Tabelle kopieren
08.01.2006 22:23:55
Dieter
Hi,
siehe Application.Filesearch, wobei Unterordner einbezogen werden müssen.
mfg Dieter
AW: Bild aus Verzeichnis holen in Tabelle kopieren
08.01.2006 22:34:49
Josef
Hallo Egon!
Das geht z.B. so!
Private Sub CommandButton1_Click()
Dim strImage As String, strPath As String
Dim objFS As FileSearch

strImage = Range("A1")
strPath = "D:\Daten\"
Image1.Picture = LoadPicture("")

Set objFS = Application.FileSearch

With objFS
  .NewSearch
  .LookIn = strPath
  .Filename = strImage & ".jpg"
  .SearchSubFolders = True
  If .Execute > 0 Then
    Image1.Picture = LoadPicture(CStr(.FoundFiles(1)))
  Else
    MsgBox "Bild nicht vorhanden!"
  End If
End With

Set objFS = Nothing

End Sub


'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

Anzeige
AW: Bild aus Verzeichnis holen in Tabelle kopieren
09.01.2006 10:41:08
egon
Hallo !
Vielen Dank euch beiden hat super geklappt.
Gruß
Egon

307 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige