Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
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
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