XL 2010 VBA comment effectuer un zoom sur page internet

tarvel · 31 Août 2017

Bonjour,
Je pilote une page web IE en vba...
Dim ie As New InternetExplorer
Set ie = CreateObject("internetExplorer.Application")
ie.Visible = True
ie.Navigate "http://www.google.fr/"

mais comment effectuer un zoom sur le navigateur..
Faut-il utiliser fonction API ou ActiveX??
Sur Win Seven - Excel 2010
Merci pur votre aide!

Yurperqod · 31 Août 2017

Bonjour à tous

Je propose cette solution
Ici le zoom est mis à 150%

VB:

Sub MacroTest()
Dim objExplorer As Object
Set objExplorer = CreateObject("InternetExplorer.Application")
objExplorer.Navigate "http://www.excel-downloads.com/"
objExplorer.Visible = True
Do While objExplorer.Busy
Loop
objExplorer.Document.Body.Style.Zoom = 1.5
End Sub

tarvel · 31 Août 2017

Merci Yurperqod pour ta réponse rapdie!
Ca fonctionne très bien.. j'ai déclaré
Dim ie As New InternetExplorer
Set IE = CreateObject("InternetExplorer.Application")
IE.Navigate "https://www.excel-downloads.com/"
IE.Document.Body.Style.Zoom = 1.5

XL 2010 VBA comment effectuer un zoom sur page internet

tarvel

XLDnaute Occasionnel

Yurperqod

XLDnaute Occasionnel

tarvel

XLDnaute Occasionnel

Discussions similaires