Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1356to1360
1356to1360
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Aufruf einer Website im Vollbildmodus

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

Anzeige

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

Anzeige
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)

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