如何在VBA中判断Excel自由图形（msoFreeform）为开放或闭合轮廓

核心方法 #

直接读取形状Path对象的原生Closed只读属性即可完成判断，无需依赖错误捕获逻辑：

• 属性返回True：对应闭合轮廓自由形
• 属性返回False：对应开放轮廓自由形
  该属性是Office对象模型专门提供的路径闭合状态判断接口，稳定性、执行效率均远高于报错判定法。

代码实现 #

' 自由形闭合状态判断函数
' 输入：目标Shape对象
' 输出：True=闭合、False=开放、非自由形返回Null
Function CheckFreeformClosed(targetShp As Shape) As Variant
    ' 先校验形状类型是否为自由形
    If targetShp.Type <> msoFreeform Then
        CheckFreeformClosed = Null
        Exit Function
    End If
    ' 直接读取路径闭合状态
    CheckFreeformClosed = targetShp.Path.Closed
End Function

' 测试调用示例
Sub TestCheck()
    Dim curShp As Shape
    For Each curShp In ActiveSheet.Shapes
        Dim state As Variant
        state = CheckFreeformClosed(curShp)
        If IsNull(state) Then
            Debug.Print curShp.Name & "：非自由形类型"
        Else
            Debug.Print curShp.Name & "：" & IIf(state, "闭合轮廓", "开放轮廓")
        End If
    Next
End Sub

原报错判定法的不足 #

• 依赖错误捕获逻辑，全局错误处理设置变更会导致判断逻辑失效
• 会修改形状原有箭头属性，需要额外编写属性保存恢复代码，冗余度高
• 执行效率远低于直接读取原生属性的方案

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