Gruppe
Extern
Problem
Wie kann ich eine Grafik, deren Name in Zelle A1 steht, in den Internet Explorer laden?
StandardModule: Modul1
Sub OpenIE()
Dim ie As Object
Dim sFile As String
sFile = Range("A1").Value
If Dir(sFile) = "" Then
Beep
MsgBox "Grafik wurde nicht gefunden!"
Exit Sub
End If
Set ie = CreateObject("InternetExplorer.Application")
ie.Navigate sFile
ie.Visible = True
End Sub