Internetexplorer verkleinert öffnen - VBA
15.10.2012 19:06:44
Wolfgang
der folgende Code bewirkt, wenn ich das richtig getestet habe, das Öffnen des IE und den Aufruf neuer Url im gleichen TAB; Wie kann ich den Code ergänzen, dass der IE verkleinert und z.B. immer im Bild oben rechts geöffnet wird. Wäre so etwas steuerbar/denkbar? - Danke schon jetzt für die Rückmeldung.
Gruß - Wolfgang
Sub b()
Dim objShell As Object
Dim IEApp As Object, win As Object
Dim adresse As String
adresse = "https://www.herber.de/forum/" 'anpassen
Set objShell = CreateObject("Shell.Application")
For Each win In objShell.Windows
If InStr(1, UCase(win.FullName), "IEXPLORE") > 0 Then
Set IEApp = win
IEApp.Navigate2 adresse, 2048
Exit For
End If
Next
If IEApp Is Nothing Then
Set IEApp = CreateObject("InternetExplorer.Application")
IEApp.Visible = True
IEApp.Navigate adresse
End If
Set IEApp = Nothing
Set objShell = Nothing
End Sub