vba - 如何使用 VBA 检索 Visio 自定义形状信息

Question

使用 VBA，如何从 Visio 2003 图表中检索自定义形状信息。

Answer 1

从 Visio 形状获取自定义形状信息:

Function GetCustomPropertyValue(TheShape As Visio.Shape, ThePropertyName As String) As String
    On Error Resume Next
    GetCustomPropertyValue = TheShape.CellsU("Prop." & ThePropertyName).ResultStr(visNone)
End Function

这个函数所做的就是使用形状上的 cellsu 属性来按名称获取自定义属性 ShapeSheet 单元格...

如果您是接下来使用 on error resume 的坚持者，您可以通过首先检查单元格是否存在来检查单元格是否存在:

if TheShape.CellExistsU( "Prop." & ThePropertyName , 0 ) then
GetCustomPropertyValue = TheShape.CellsU("Prop." & THePropertyName).ResultStr(VisNone)