检查 Visio Shape.Cell 集合

Question

我需要一些关于如何在 vb 或 vba 中查询 VISIO Shape.cells 集合的建议。

我编写了一个应用程序来将形状拖放到页面上，并且可以在将其拖放到页面上后更改其名称。现在我想检查形状细胞集合。

谢谢

Answer 1

Visio 形状单元被分成不同的部分。此类部分可能包括用户单元格、操作或角色设置。还有一系列命名单元格，您只能（我认为）通过名称（即 PinX 或 PinY）访问。

因此，要查询形状的单元格，您首先必须弄清楚您正在谈论的单元格的哪个部分。要循环遍历单元格部分，首先获取该部分中的行数，然后使用形状对象上的 CellsSRC 方法循环遍历该部分。

Dim TheShp As Visio.Shape
Set TheShp = ActiveWindow.Selection.Item(1)
Dim TheSec As Visio.Section
Dim TheCell As Visio.Cell
Set TheSec = TheShp.Section(visSectionUser)
Dim RowNum As Long
For RowNum = 0 To TheSec.Count - 1
    Set TheCell = TheShp.CellsSRC(visSectionUser, RowNum, 0)
    Debug.Print TheCell.Formula
    Debug.Print TheCell.Result(visNone)
Next CellNum

如果存在多种形状的大量单元格，则以这种方式循环可能会很慢。如果您需要访问大量单元格的公式或结果，Page 对象上有 GetFormulas 和 GetResults 方法，它们采用 SRC 值和形状 ID 数组，从而同时提取所有这些公式/结果。