Microsoft Excel

Herbers Excel/VBA-Archiv

Fenster ausrichten beim Start


Betrifft: Fenster ausrichten beim Start von: Oliver
Geschrieben am: 26.03.2018 11:47:39

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

  

Betrifft: AW: Fenster ausrichten beim Start von: Oberschlumpf
Geschrieben am: 01.04.2018 08:40:40

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


Beiträge aus dem Excel-Forum zum Thema "Fenster ausrichten beim Start"