Visio技术问询：如何将形状存入临时变量及代码报错解决

你遇到的这个错误本质是VBA中对象类型赋值的规则问题——Visio.Shape属于对象引用类型，不能直接用普通的=赋值，必须使用Set关键字来建立对象引用关系。

修改后的正确代码 #

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 ' 替换成你的实际判断条件
        ' 用Set关键字赋值对象引用
        Set temp_variable = shp
    End If
Next shp

' 后续操作前建议先判断变量是否有效
If Not temp_variable Is Nothing Then
    ' 示例：修改符合条件形状的文本
    temp_variable.Text = "已匹配目标形状"
End If

关键说明 #

1. 为什么必须用Set？
   普通数据类型（比如Integer、String）用=是直接复制值，但Visio.Shape是对象，Set的作用是让temp_variable指向shp所引用的同一个形状对象，而非复制形状本身。如果省略Set，VBA会尝试读取shp的默认属性（比如ShapeID）并赋值，这就会触发类型不匹配的错误。

2. 处理多匹配场景
   如果你的条件可能匹配多个形状，单个变量只会保留最后一个匹配的对象。若要保存所有符合条件的形状，建议改用集合存储：

   Dim tempShapes As New Collection
   ' ...
   If condition = True Then
       tempShapes.Add shp
   End If
   ' 遍历集合处理每个形状
   Dim targetShape As Visio.Shape
   For Each targetShape In tempShapes
       ' 执行你的操作逻辑
   Next targetShape
   

内容的提问来源于stack exchange，提问作者GG24