mit folgendem Code öffne ich Bild-Dateien.
Sub ReklaBilder()
Dim Path, ReNr, sPath As String
On Error GoTo ERRORHANDLER
Path = Tabelle18.Cells(13, 11)
ReNr = Tabelle2.Cells(10, 18)
sPath = Path & ReNr & "X-01.jpg"
ActiveWorkbook.FollowHyperlink _
Address:=sPath, _
NewWindow:=True
Exit Sub
ERRORHANDLER:
MsgBox "Keine Bilder vorhanden."
End Sub
Leider werden die Bilder mit dem im Windows zugeordneten Progamm geöffnet.
Das Programm möchte ich aber selbst angeben können.
Wie kann ich das via VBA lösen? Ohne die Windows-Einstellungen zu ändern!!!
Die Recherche hat leider nichts gebracht, oder ich bin blind.
Ich danke Euch schon jetzt für für jeden Ansatz und Eure Mühen.
Gruss Klaus K.