Cómo acercar o alejar una página web mientras usa UFT / QTP

Me gustaría controlar la función de acercamiento y alejamiento de mi página web de la aplicación bajo prueba usando UFT. Esto es necesario ya que el nivel de zoom cambia dinámicamente y se hace difícil identificar los objetos. He encontrado un código, pero es útil si necesita cambiar el nivel de zoom en una instancia o al principio. a continuación está el código

Function ChangeIEZoom
Dim intZoomLevel, objIE
intZoomLevel = 110
 Const OLECMDID_OPTICAL_ZOOM = 63
 Const OLECMDEXECOPT_DONTPROMPTUSER = 2
 Set objIE = CreateObject("InternetExplorer.Application")
 objIE.Visible = True
 objIE.Navigate ("www.google.com")
 While objIE.Busy = True
 wait 5
 Wend
 objIE.ExecWB OLECMDID_OPTICAL_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, CLng(intZoomLevel), vbNull
End Function

con este código, abre un nuevo navegador y lo navega a una URL.

No quiero que cree una nueva instancia del navegador. Lo que necesito es que cambie el nivel de zoom en la misma página que ya está en ejecución de prueba, también la página donde se requiere el cambio de nivel de zoom no se conoce al principio y puede o no requerir un cambio basado en el hecho de que identifica ciertos objetos

¿Alguien ha enfrentado el mismo problema o tiene una solución?

Respuestas a la pregunta(1)

Su respuesta a la pregunta