Dialogfeld Öffnen
22.03.2007 13:54:00
Werner
mit dem Dialogfeld Öffnen möchte ich Bilder in ein Image einfügen. Das geht auch.
Wenn ich aber kein bild auswähle und das Dialogfeld am X schließe oder mit dem Button Abbrechen schließe, bekomme ich eine Fehlermeldung Laufzeitfehler 53 "Datei nicht gefunden".
Was ist in dem Makro falsch?
Private Sub CommandButton5_Click()
Dim picName As Variant
Dim tarPath As String
tarPath = "I:\2232\Deformation\"
ChDrive Left(tarPath, 1)
ChDir tarPath
picName = Application.GetOpenFilename("Grafiken (*.jpg), *.jpg", , "Bilddatei wählen")
If picName = "" Then
MsgBox "Keine Datei gewählt", vbInformation + vbOKOnly, "Abbruch"
Exit Sub
End If
Me.Image1.Picture = LoadPicture(picName)
End Sub
Gruss Werner