选择现有形状时出现错误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）