Op knop drukken website

[L@urence]

Een bijzonder goedemiddag,

Ik ben een beginner m.b.t. VBA. Ik heb verschillende fora doorzocht maar ik loop helaas vast. Ik probeer met vba een website (https://setcompass.com) te automatiseren. Dit is gedeeltelijk gelukt, d.m.v. IE.Document.getElementById kan ik door de site klikken en gegevens invullen. Ik zou ook graag de zoomfunctie willen automatiseren. Ik wil graag 4x klikken op de zoom knop. Maar hier ga ik de mist in. De knop heeft geen Id, maar wordt weergegeven als button.gm-control-active.

Kan iemand mij op weg helpen hoe ik "virtueel" op deze knop kan drukken?

Alvast bedankt!! :thumb:

 

[snb]

Toon svp je code (tussen code tags !)

 

[L@urence]

Bij deze:


Bedankt alvast voor je tijd!

Sub Compass()


Dim IE As Object
Dim OutPut As Integer


' Create InternetExplorer Object
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True

' Launch IE on left monitor

IE.Left = -2060
IE.fullscreen = True

' Navigate to Compass
IE.Navigate "https://setcompass.com/"

' Wait while IE loading...
While IE.Busy
        DoEvents
Wend

' Click single leg button with delay

    Application.Wait DateAdd("s", 1, Now)
    IE.Document.getElementById("signleLegBtn").Click
    
' Click "OK" button with delay
    
   
    Application.Wait DateAdd("s", 1, Now)
    
    IE.Document.getElementById("OKBtn").Click
    

'Fill searchTextField & press enter

    IE.Document.getElementById("searchTextField").Value = "Aluin 5 Zoetermeer" & " Netherlands"
    
    Application.Wait DateAdd("s", 1, Now)
    IE.Document.getElementById("searchTextField").Focus
    Application.SendKeys ("~")
    
    
' Click zoom button 4 times

' ??

End Sub