Microsoft VBA 习语 (Visio) 用于测试属性不存在？

Question

我需要确保在 Visio 2003 上运行的宏不会在较低版本的 Visio 上引起问题：特别是因为我正在写入较低版本的 Visio 上不存在的属性。目前我正在这样做：

...

On Error GoTo NoComplexScriptFont:

Set cellObject = shapeObject.Cells("Char.ComplexScriptFont")

On Error GoTo ErrHandler

...

NoComplexScriptFont:

    Rem MSGBOX only for debug

    MsgBox "No Such Property"

    GoTo endsub



ErrHandler:

    Rem put in general error handling here

    GoTo endsub



endsub:

End Sub





...

这有效，但我认为它有点混乱。我曾考虑过使用“Application.version”（对于 Visio 2003 返回“11”），但我想避免假设任何特定版本中可用的属性，而只是测试属性本身。

在 VBA 中执行此操作的正确习惯用法是什么？

谢谢

--- 下面有一些答案，我首选的解决方案是这个：

If shapeObject.CellExists("Char.ComplexScriptFont", 0) Then

    msgbox "Property exists"

else

    msgbox "Property does not exist"

end if

Answer 1

我会使用包装函数来访问该属性，这样您就不会弄乱正常的错误处理，如下所示：（

...
Set cellObject = GetCellObject(shapeObject)
If Not cellObject Is Nothing Then
   ' Do something with cellObject
End If
...

Private Function GetCellObject(ByVal shapeObject As Object) As Object
    On Error Resume Next
    Set GetCellObject = shapeObject.Cells("Char.ComplexScriptFont")
End Function

注意：我只使用上面的 Object 因为我不知道什么type cellObject 等）

即使对于我知道确实存在的属性，我也经常使用相同的技术，但这在某些情况下会引发错误。例如 (Excel)，如果我要按名称访问工作表（如果不存在这样的工作表，则会引发错误），那么我将有一个调用 Worksheets(name) 并且返回一个 Worksheet 对象或 Nothing：

Private Function GetWorksheet(ByVal strName as String) As Worksheet
    On Error Resume Next
    Set GetWorksheet = Worksheets(strName)
End Function

这使得调用代码更加清晰，因为您可以简单地测试返回值而不用担心错误处理。

Answer 2

您可以使用形状对象的 CellExists 属性来查看特定单元格是否存在。您必须传入您似乎已经在使用的 localeSpecificCellName，然后传入一个整数 fExistsLocally，它指定单元格的搜索范围；如果指定 0，则无论单元格是否继承，CellExists 将返回 true...如果指定为 1，则如果单元格继承，CellExists 将返回 false。