Ошибка 86db089e при выборе существующей фигуры

Question

У меня есть следующий код в моем Visio VBA. В большинстве случаев он работает нормально, но когда фигура (pShape) является первой выбранной формой на странице, я получаю следующую ошибку, которая не может быть перехвачена

-2032465762 86db089e

Set wpage = wOwner.ContainingPage   ' Visio page with both owner and subordinate
GetSubordinates pShape, wlinks, "", 0   
' gets all subordinates of pShape into wlinks
ActiveWindow.DeselectAll  ' just in case
On Error GoTo 0
ActiveWindow.Select pShape, visSelect
On Error GoTo errtrap
ActiveWindow.Selection.Delete

Answer 1

Сразу после публикации я увидел ошибку. Мне нужно сделать выбранную страницу текущей активной страницей: Application.ActiveWindow.Page = Application.ActiveDocument.Pages.Item (wpage.Name)