Gruppe
Extern
Problem
Wie kann ich eine HTML-Datei auswählen und mir diese im InternetExplorer mit einer festen Fenstergrösse ohne das Explorer-Menü anzeigen lassen?
StandardModule: basMain
Sub ExplorerOeffnen()
Dim oExplorer As Object
Dim var As Variant
var = Application.GetOpenFilename("HTML-Dateien (*.htm), *.htm")
If var = False Then Exit Sub
Set oExplorer = CreateObject("InternetExplorer.Application")
With oExplorer
.Navigate var
.StatusBar = False
.MenuBar = False
.Toolbar = False
.Visible = True
.Resizable = False
.Offline = True
.Width = 750
.Height = 550
End With
End Sub