Change active page of Vision object in Excel

I have an Excel document in which I inserted Visio object. It has a few pages, each page has a specific model and according to some checkboxes in excel I want to choose a specific page, so when I print the excel, it will have specific model from visio. All this should do via VBA code that will be trigered by checkmark. The Vision object is embeded in excel, I dont want to link an external document. So far I managed to activate the visio object, with this code:

Code:

---

Set visioObj = Worksheets("Document").OLEObjects("objekt 4")
visioObj.Activate

---

But I can't figure out, how to change the active page.
Do you have any idea how to do that?
Thank you.

Found the solution, needed to use:
visioObj.Object.Application.ActiveWindow.Page = vsPage

Thank you for posting the solution