Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
724to728
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
724to728
724to728
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Bild einlesen!

Bild einlesen!
02.02.2006 08:17:34
Swen
Hallo an alle,
ich möchte gerne in ein UserForm.Image1 ein Bild laden !
Das Bild soll heißen
strName & "-Logo.jpg"
Und ligt in
Workbook.path & "/pic/"
Das Problem ist das wenn dieses Logo was ich
da laden möchte nicht vorhanden ist das er dann
ein Standard Logo laden soll mit dem Namen
Std-Logo.jpg
Kann mir einer sagen wie ich es hin bekomme das er wenn er
das Bild mit dem Namen strName & "-Logo.jpg" nicht findet
keine Fehlermeldung ausgibt sondern direkt das Bild mit dem Namen
Std-Logo.jpg dann lädt!
Gruß
Swen

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bild einlesen!
02.02.2006 08:41:00
Ramses
Hallo
If Dir(Workbook.path & "/pic/-Logo.jpg") = "" Then
strName & "Std-Logo.jpg"
Else
strName & "-Logo.jpg"
End if
Danach kannst du mit strName dein Logo laden.
Gruss Rainer
AW: Bild einlesen!
02.02.2006 14:13:23
Swen
Hallo Rainer,
ich habe es wie folgt gemacht bekomme aber eine Fehlermeldung!
strName = UF_Daten_bearbeiten.ComboBox2.Value
If Dir(Workbook.Path & "/pic/logo/" & strName & "-Logo.jpg") = "" Then
strLogo = "Std-Logo.jpg"
Else
strLogo = strName & "-Logo.jpg"
End If
strLogo = strName & "-Logo.jpg"
UF_Daten_bearbeiten.Image1.Picture = LoadPicture(ThisWorkbook.Path & "/pic/" & strLogo)
Gruß
Swen
Anzeige
AW: Bild einlesen!
02.02.2006 15:16:59
Helga
Hi,
du musst im Pfad den \ statt des / verwenden.
mfg Helga
AW: Bild einlesen!
02.02.2006 17:03:13
Swen
Hallo ihr beiden,
ich habe es jetzt so
strName = UF_Daten_bearbeiten.ComboBox2.Value
If Dir(Workbook.Path & "\pic\logo\" & strName & "-Logo.jpg") = "" Then
strLogo = "Std-Logo.jpg"
Else
strLogo = strName & "-Logo.jpg"
End If
strLogo = strName & "-Logo.jpg"
UF_Daten_bearbeiten.Image1.Picture = LoadPicture(ThisWorkbook.Path & "\pic\" & strLogo)
er geht aber bei der Zeile
If Dir(Workbook.Path & "\pic\logo\" & strName & "-Logo.jpg") = "" Then
mit dem Laufzeitfehler 424 raus!
Gruß
Swen
Anzeige
AW: Bild einlesen!
02.02.2006 17:04:33
Swen
Hallo ,
dieser punkt ist noch offen!
Es können sich auch gerne andere beteiligen!
Danke
gruß
swen
AW: Bild einlesen!
02.02.2006 17:46:22
Helga
Hi,
nicht: If Dir(Workbook.Path & "\pic\logo\" & strName & "-Logo.jpg") = "" Then
sondern: If Dir(ThisWorkbook.Path & "\pic\logo\" & strName & "-Logo.jpg") = "" Then
mfg Helga

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige