Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1356to1360
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

Aufruf einer Website im Vollbildmodus

Aufruf einer Website im Vollbildmodus
24.04.2014 10:46:04
Dirk
Hallo zusammen,
ich hoffe, Ihr könnt mir helfen.
Beim Ausführen des u.a. Programm-Codes soll die Website im Vollbildmodus
angezeigt werden. Krieg's leider nicht hin.
Gruß Dirk
Private Sub Image44_Click()
ThisWorkbook.FollowHyperlink "aufzurufende_Website"
Unload Me
End Sub

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Aufruf einer Website im Vollbildmodus
24.04.2014 12:37:48
Tino
Hallo,
versuch mal so.
Private Sub Image44_Click()
With CreateObject("InternetExplorer.Application")
.Navigate "https://www.google.de"
.FullScreen = True
.Visible = True
End With
Unload Me
End Sub

Gruß Tino

AW: Aufruf einer Website im Vollbildmodus
24.04.2014 13:09:26
Dirk
Hallo Tino,
funzt prima, nur wird der IE ohne Leisten (Bearbeitung, Status, usw.) und hinter der UF angezeigt.
Hast Du da auch noch eine Lösung ?
Gruß Dirk

Du könntest es...
24.04.2014 13:37:44
Case
Hallo, :-)
... so probieren:
Option Explicit
Private Declare Function ShowWindow Lib "user32" _
(ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Const SW_MAXIMIZE = 3
Private Sub Image44_Click()
Dim objIE As Object
Set objIE = CreateObject("InternetExplorer.Application")
With objIE
.Visible = 1
ShowWindow .hwnd, SW_MAXIMIZE
.Navigate2 "https://www.herber.de/forum/"
End With
Set objIE = Nothing
Unload Me
End Sub
Servus
Case

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige