Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Fenster ausrichten beim Start

Forumthread: 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
Anzeige

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
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige