Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1616to1620
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Fenster ausrichten beim Start

Fenster ausrichten beim Start
26.03.2018 11:47:39
Oliver
Hallo Leute,
ich möchte, dass sich der Internetexplorer automatisch rechtsbündig öffnet. Wie bekomme ich das hin? Habe bis jetzt das hier gefunden:
Public Sub Einloggen()
Set IEApp = CreateObject("InternetExplorer.Application")
IEApp.Visible = True
IEApp.navigate "https://banking.fidor.de/login"
'--- Fenstergrösse variabel
.Application.WindowState = 10
'--- Position linke obere Ecke das Anwendungsfensters
Application.Top = 50
Application.Left = 100
'--- Breite und Höhe des Anwendungsfensters
Application.Width = 400
Application.Height = 200
End Sub
Freue mich auf eure Antworten

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Fenster ausrichten beim Start
01.04.2018 08:40:40
Oberschlumpf
Hi Oliver,
versuch mal das hier
Option Explicit
Public Const SM_CXSCREEN = 0
Public Const SM_CYSCREEN = 1
Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Public Sub Einloggen()
Dim IEApp As Object
Set IEApp = CreateObject("InternetExplorer.Application")
IEApp.Visible = True
IEApp.navigate "https://banking.fidor.de/login"
'--- Fenstergrösse variabel
Application.WindowState = 10 'wozu brauchst du das?
'--- Breite und Höhe des Anwendungsfensters
IEApp.Width = 600
IEApp.Height = 400
'--- Position linke obere Ecke das Anwendungsfensters
IEApp.Top = 0
IEApp.Left = GetSystemMetrics(SM_CXSCREEN) - IEApp.Width
End Sub

Hilfts?
Ciao
Thorsten
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige