Excelden açılan web sayfasını tam ekran açmak

[serqet]

arkadaşlar aşağıdaki kod web sayfasını açıyor peki tam ekran olarak çamasını nasıl sağlayabilirim? Teşekkürler.

Private Sub CommandButton0_Click()
ThisWorkbook.FollowHyperlink Address:="http://www.google.com", NewWindow:=True
End Sub

 

[serqet]

Çözüldü.Teşekkürler.

Shell "C:\Program Files\Internet Explorer\IEXPLORE.EXE " & "http://www.excel.web.tr", vbMaximizedFocus

 

[halit3]

Çözüldü.Teşekkürler.

Shell "C:\Program Files\Internet Explorer\IEXPLORE.EXE " & "http://www.excel.web.tr", vbMaximizedFocus

Alternatif kod

Global Const SW_MAXIMIZE = 3
Global Const SW_SHOWMINIMIZED = 2
Global Const SW_SHOWNORMAL = 1
Declare Function apiShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Sub websayfasınıac()
Dim URL As String
Dim ie As Object
URL = "[URL]http://www.excel.web.tr/index.php[/URL]"
Set ie = CreateObject("InternetExplorer.Application")
With ie
.Navigate URL
apiShowWindow ie.hwnd, SW_MAXIMIZE
End With
End Sub