Como aumentar ou diminuir o zoom em uma página da Web ao usar UFT / QTP

Gostaria de controlar o recurso de aumentar e diminuir o zoom da minha página do aplicativo em teste usando o UFT. Isso é necessário, pois o nível de zoom muda dinamicamente e fica difícil identificar os objetos. Encontrei um código, mas é útil se você precisar alterar o nível de zoom em uma instância ou no início. abaixo está o 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

com esse código, ele abre um novo navegador e o navega para um URL.

Não quero que ele crie uma nova instância do navegador. O que eu preciso é que ele altere o nível de zoom na mesma página que já está em execução de teste, também a página em que a alteração do nível de zoom é necessária e desconhecida no início e pode ou não exigir alterações com base no fato de identificar certos objetos.

Alguém já enfrentou o mesmo problema ou tem uma solução para ele?

questionAnswers(1)

yourAnswerToTheQuestion