Zoom in Userform
17.01.2023 04:26:39
oraculix
Verzweifelt suche ich nach einer Lösung in Einer Userform die eine Listbox und einen Webbrowser besitzt, zu Zoomen.
Der untenstehende Code funktioniert auch nur das Zoomen der Html Seite nicht.
Wenn ich Manuelle mit Strg und Plus die Seite 5mal Zoome dann funktioniert es, aber mit meinem Code nicht.
Frage:
Wie kann ich die Integrierte WebBroser Seite Zoomen es muss nicht unbedingt Strg+ sein.
Vielleicht gibt es einen VBA Code mit Zoom = 150 oder so ähnlich.
Danke
Private Sub Lst_Treffer_Click()
Dim selectedFile As String
selectedFile = "D:\EMDB\HTML\movies\" & Lst_Treffer.Value
web.Navigate selectedFile
SendKeys "+^{TAB}", True 'Reagiert nicht
SendKeys "+^{TAB}", True 'Reagiert nicht
SendKeys "+^{TAB}", True 'Reagiert nicht
SendKeys "+^{TAB}", True 'Reagiert nicht
SendKeys "+^{TAB}", True 'Reagiert nicht
SendKeys "+^{TAB}", True 'Reagiert nicht
End Sub
Oraculix