Mit VBA Link im Internet Explorer starten und dabei Fenstergröße bestimmen

Option Explicit


Public Sub ie()
Dim objIE1, objIE2 As Object


Set objIE1 = CreateObject("InternetExplorer.Application") ' Für IE Fenster 1
Set objIE2 = CreateObject("InternetExplorer.Application") ' Für IE Fenster 2


objIE1.Top = 20                                          ' Position von oben
objIE1.Left = 600                                        ' Position von links
objIE1.Width = 600                                       ' Fenster breite
objIE1.Height = 500                                      ' Fensterhöhe


objIE2.Top = 20                                          ' Position von oben
objIE2.Left = 0                                          ' Position von links
objIE2.Width = 600                                       ' Fenster breite
objIE2.Height = 500                                      ' Fensterhöhe


objIE1.Visible = True                                    ' Objekt für IE Fenster 1
objIE1.Navigate "www.1und1.de"                           ' Objekt für IE Fenster Adresse


objIE2.Visible = True                                     ' Objekt für IE Fenster 2
objIE2.Navigate "www.mozilla.org"                        ' Objekt für IE Fenster Adresse


' Nach Beendigung des Codes sollten die zwei Objecte gelöscht werden
'
End Sub