Ich möchte folgendes machen:
Nachdem auf eine Zelle doppelt geklickt wird, soll ein Bild ausgesucht und dann in der Zelle (Image1) angezeigt werden.
Ich muß diese Bilddatei erst suchen/aussuchen - sprich erst das Verzeichnis und den dateinamen des Bildes herausfinden.
Mit meinem Code kann ich zwar das Verzeichnis herausfinden, aber nicht die eigentliche Datei!
Somit kann er mir ja auch kein Bild anzeigen!
Wie kann ich das machen?
danke schon im Voraus!!
Brit
'Funktion, um eine Verzeichnisstruktur in einem Dialog als Verzeichnisbaum anzuzeigen.
Private Type BROWSEINFO
hOwner As Long
pidlRoot As Long
pszDisplayName As String
lpszTitle As String
ulFlags As Long
lpfn As Long
lParam As Long
iImage As Long
End Type
Private Declare Function SHGetPathFromIDList Lib "shell32.dll" _
Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As _
String) As Long
Private Declare Function SHBrowseForFolder Lib "shell32.dll" _
Alias "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal _
lpClassName As String, ByVal lpWindowName As String) As Long
Function VerzeichnisErmitteln(Msg) As String
Dim bInfo As BROWSEINFO
Dim path As String
Dim l As Long
bInfo.pidlRoot = 0&
l = SHBrowseForFolder(bInfo)
path = Space$(512)
If SHGetPathFromIDList(ByVal l, ByVal path) Then
VerzeichnisErmitteln = Left(path, InStr(path, Chr$(0)) - 1)
Else: VerzeichnisErmitteln = ""
End If
End Function
Private Sub Image1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim s As String
Dim sVerz As String
s = "Wählen Sie aus dem Verzeichnisbaum ein Verzeichnis aus!"
sVerz = VerzeichnisErmitteln(s)
If sVerz = "" Then Exit Sub
Image1.Picture = LoadPicture '(?)
End Sub