mit F11 internetseite vergrößern
Michael
Wie bekomme ich jetzt die internetseite auf voller Bildschirmgröße?
SendKeys "{F11}", True
Warum vergrößert er mit sendkeys nicht die Internetseite?
Vielen Dank
Michale
Private Declare
Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal _
bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Declare
Function GetVersionExA Lib "kernel32" _
(lpVersionInformation As OSVERSIONINFO) As Integer
Private Type OSVERSIONINFO
dwOSVersionInfoSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
dwBuildNumber As Long
dwPlatformId As Long
szCSDVersion As String * 128
End Type
Private Const KEYEVENTF_KEYUP = &H2
Private Const VK_SNAPSHOT = &H2C
Private Const VK_MENU = &H12
Dim blnAboveVer4 As Boolean
Sub screenshot()
ActiveSheet.Paste
End Sub
Sub adsf()
Dim Internet As Object
Dim i As String
Set Internet = CreateObject("InternetExplorer.Application")
i = Tabelle1.Range("a1")
Internet.Navigate [i]
Do While Not Internet.ReadyState = 4
DoEvents
Loop
Internet.Visible = True
SendKeys "{F11}", True
screenshot
Internet.Quit
Set Internet = Nothing
Tabelle3.Paste
End Sub