Bilder in Image einfügen
04.07.2005 13:58:07
Werner
Hiermit lade ich Bilder in Image1 in abhängigkeit vom Inhalt der Zelle A1, geht auch.
Die Bilder haben die Namen 1.jpg und so weiter. In die Zelle möchte ich aber nur 1 und so weiter eingeben. ohne das ich die endung mit angebe bekomme ich eine fehlermeldung Datei nicht gefunden.
Was muss ich ändern.
Private Sub Worksheet_Change(ByVal Target As Range)
Sheets(1).Image1.Picture = LoadPicture("C:\Eigene Dateien\Eigene Bilder\Bilder\" & Sheets(1).Cells(1, 1).Value)
End Sub
Werner
Anzeige