Bild öffnet falsch
28.11.2003 08:50:26
Micha
Ich möchte durch klick auf einen Button den aktuellen Ordner öffnen und nur Bild-Dateien auswählen können.
Was ist falsch am Code?
beim Öffnen werden alle Dateien gezeigt und nicht nur Bild Dateien und die Bilder öffnen sich immer mit Excel das ist auch falsch.
Private Sub CommandButton1_Click()
Dim ZuOeffnendeDatei
Dim isGrafik As Boolean, i As Long
On Error Resume Next
ZuOeffnendeDatei = Application.GetOpenFilename( _
, , "Grafikdateien", , True)
With Sheets("Tabelle1")
For i = 1 To UBound(ZuOeffnendeDatei)
isGrafik = True
Select Case LCase(Right$(ZuOeffnendeDatei(i), 3))
Case "jpg"
Case "gif"
Case "bmp"
Case Else
isGrafik = False
End Select
If isGrafik Then
.Pictures.Insert ZuOeffnendeDatei(i)
End If
Next
End With
End Sub