Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1496to1500
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1496to1500
1496to1500
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

IE -Fenster

IE -Fenster
18.06.2016 09:59:14
Rolf
Guten Morgen und Hallo,
ich öffne eine Exceldatei, deren Fenstergröße und – position mittels VBA festgelegt ist.
Aus diesem Programm heraus öffne ich den Internet Explorer und dort eine bestimmte Seite.
Meine Frage: Kann man dieses (IE) – Fenster durch Vba in Größe und Position festlegen?
Ein schönes, hoffentlich sonniges Wochenende wünscht euch allen
Rolf

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: IE -Fenster
18.06.2016 10:24:04
Nepumuk
Hallo,
ein Beispiel:
Option Explicit

Private Declare Function GetSystemMetrics Lib "user32.dll" ( _
    ByVal nIndex As Long) As Long

Private Const SM_CXSCREEN = 0
Private Const SM_CYSCREEN = 1

Public Sub Test()
    
    Dim objExplorer As Object
    
    Set objExplorer = CreateObject("InternetExplorer.Application")
    
    With objExplorer
        
        'Fenster aenderbar machen und alle Leisten ausblenden
        .Resizable = True
        .Toolbar = 0
        .StatusBar = False
        
        .Left = Application.Left
        .Top = 0
        .Height = GetSystemMetrics(SM_CYSCREEN) / 2
        .Width = GetSystemMetrics(SM_CXSCREEN) / 4
        
        Call .Navigate("http://www.herber.de/forum/messages/1499668.html")
        
        .Visible = True
        
    End With
End Sub

Gruß
Nepumuk

Anzeige
AW: IE -Fenster
18.06.2016 10:33:17
Rolf
Hallo Nepumuk,
recht herzlichen Dank. Aus deinem Beispiel konnte ich alles entnehmen, was ich brauchte.
Klappt prima!
Schöne Grüße Rolf

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige