|
Hallo Sebastian,
das ist ja auch logisch, weil die Zeile zur Anzeige des Standardbildes immer durchlaufen wird.
Ich empfehle
Set Fso = CreateObject("Scripting.FileSystemObject")
If Fso.fileexists("C:\Users\Sebastian\Desktop\Dateien\Excel\logos\" & logo & ".jpg") then
Image1.Picture = LoadPicture("C:\Users\Sebastian\Desktop\Dateien\Excel\logos\" & logo & ".jpg")
else
Image1.Picture = LoadPicture("C:\Users\Sebastian\Desktop\Dateien\Excel\logos\" & logo & ".jpg")
end if
usw für die anderen Bilder.
Gruß
Holger
|