Bilddatei per Button öffnen
07.02.2019 20:41:59
Heinz
ich bräuchte hilfe.Es ist nur eine Kleinigkeit aber ich komme einfach nicht drauf. Und zwar möchte ich ein Bild per Button öffnen wenn der Bildname in Zelle A1 steht. Mit folgendem code bekomme ich das auch hin wenn der Pfad so Lautet C:\Users\Public\Pictures\Sample Pictures\Desert.jpg
Option Explicit
Private Declare
Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As _
Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal _
lpDirectory As String, ByVal lpnShowCmd As Long) As Long
Sub suchen()
'Datei im Zielordner suchen Bildname ist Zelle A1
Dim Dateiname As String
Dim Suchbegriff As String
Dim Pfad As String
Pfad = "C:\Users\Public\Pictures\Sample Pictures\"
Suchbegriff = ActiveSheet.Range("A1").Value
Dateiname = Dir(Pfad & Suchbegriff & ".jpg")
If Dateiname "" Then
'Öffnet die Datei
ShellExecute 0, "open", Pfad & Dateiname, "", "", 3
Else
MsgBox "Kein Bild vorhanden"
End If
End Sub
Nun mein Problem
Wie muss der Code lauten wenn der Pfad so ist:
C:\Users\Public\Pictures\Sample Pictures\Desert\Desert.jpg
Das Bild steckt nochmal in einem Ordner der genauso lautet wie der Bildname
Ich benötige sozusagen zusätzlich im Pfad Desert\
Ich wäre sehr Dankbar wenn mir jemand helfen könnte