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?