Designer vraag UserForm excel HTML

[Royvdwildt]

Een goede middag heren en dames. Excuses

Ik heb een vraag en kan het antwoord niet vinden op het internet.

Ik ben een dashboard aan het maken voor mezelf in VBA. Ben aan het stoeien met Userform
Dus heb een button gemaakt die een IE browser opent. Werkt goed alleen hij opent de venster niet maximaal.
Ik stoor me hier aan. Kan iemand me aub helpen.

Hieronder de code die ik gebruikt. Deze is copy / paste van google.

Command button()

Private Sub Website_Click()
Dim ie As Object
Set ie = CreateObject("Internetexplorer.Application")
ie.Visible = True
ie.Navigate "www.google.nl"

End Sub

Alvast bedankt voor de hulp.

 

[snb]

Dit forum is niet alleen voor heren.

 

[Royvdwildt]

Dit forum is niet alleen voor heren.

Excuses aangepast!

 

[gast0660]

Onder uw knopje

Private Sub Website_Click()
Dim objIE As Object
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = 1
apiShowWindow objIE.hwnd, SW_MAXIMIZE
objIE.Navigate "www.google.nl"
End Sub

En deze in een module

Declare Function apiShowWindow Lib "user32" Alias "ShowWindow" _
            (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Global Const SW_MAXIMIZE = 3

 

[E v R]

Middels google:

 Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Const SW_MAXIMIZE = 3
 Sub Website()
 Dim ie As Object
 Set ie = CreateObject("Internetexplorer.Application")
    ShowWindow ie.hwnd, SW_MAXIMIZE
    ie.Visible = True
    ie.Navigate "www.google.nl"

 End Sub

 

[Royvdwildt]

Oww dank jullie wel!! Het werkt gelijk. Dit maakt me vrijdag helemaal goed!

Enorm bedankt.

 

[gast0660]

OK:thumb:
suc6

 

[snb]

Private Sub M_snb()
   With CreateObject("Internetexplorer.Application")
      .navigate "http://www.helpmij.nl/forum/showthread.php/911517-Designer-vraag-UserForm-excel-HTML?p=5909291&viewfull=1#post5909291"
      .Visible = True
      .FullScreen = True
   End With
End Sub

 

[Royvdwildt]

OK:thumb:
suc6

Maar nu bij deze vba code doet ie ook weer klein scherm.


Sub KENTEKEN()


Dim ie As Object
Set ie = CreateObject("InternetExplorer.Application")
'website
ie.Navigate Range("F12")
ie.Visible = True

End Sub

Krijg het niet zo in orde. Damm

 

[E v R]

Je zet 'm nergens gemaximeerd of fullscreen in de code...

 

[Royvdwildt]

Je zet 'm nergens gemaximeerd of fullscreen in de code...

Hij doet het nu!!

Nogmaals bedankt! geniet van het weekend!

 

[gast0660]

Misschien kan je hier wat mee?