Vba Visio-如何在临时变量中存储形状？

我试图用这段代码将活动形状存储到临时变量中，但我遇到了一个调试错误，它说shp是“形状/形状”类型，temp_变量只是“形状”类型，但它们声明为相同类型：

  Dim temp_variable as Visio.shape

    Dim shp As Visio.Shape
    Dim pagShape As Visio.Shape
        Set pagShape = Visio.ActivePage.PageSheet
        For Each shp In Visio.ActivePage.Shapes
           If condition = True Then 'some conditions about the shape
                  temp_variable = shp
            End If
        Next shp 

    'then I can work on temp_variable

    End Function

如果你想识别一个形状并将其存储在一个临时变量中，你会怎么做？

---

提前非常感谢

我只需要使用关键字集：

Set temp_variable = shp