Wie bekomme ich die Internetseite mit Zoom 50% geöffnet?
Nach der Bearbeitung soll er wieder auf 100% zurück?
(Seit Windows 8.1 übernimmt er nur noch die Daten, die zu sehen sind! Der Rest ist verschwunden. Codeschnipsel aus herberts Forum)
Private Sub CopyHtmlToClipboard(wwwAdress As String)
Dim appIE As Object
Set appIE = CreateObject("InternetExplorer.Application")
appIE.navigate wwwAdress
appIE.Visible = True ' True sichtbar ; mit false hier läuft es im Hintergrund
' appIE.Zoom = 50
If Application.Wait(Now + TimeValue("0:00:15")) Then
Do: Loop Until appIE.Busy = False
appIE.ExecWb 17, 0 'Select All
Do: Loop Until appIE.Busy = False
appIE.ExecWb 12, 0 'Copy
Do: Loop Until appIE.Busy = False
' appIE.Zoom = 100
appIE.Application.Quit
Set appIE = Nothing
End If
End Sub