从选择视图中检索形状

Question

我正在使用Visio 2013和VBA。 我想从我在页面中喜欢的形状中检索Characters 。 我试过了：

Dim s As Visio.shape
Dim c As Visio.Characters
Set s = ActiveWindow.Selection.ContainingShape
c = s.Characters

但是构造c时出现错误。 我可能想做什么？

Answer 1

普通工程图页面中的ContainingShape方法可能会返回页面本身（ID = 0），并且此方法不支持Characters对象。 Selection可能包含多个形状，但是PrimaryItem属性将返回单个形状；如果Selection为空，则返回null / null。

因此，您的代码应如下所示：

Dim s As Visio.Shape
Dim c As Visio.Characters
Set s = ActiveWindow.Selection.PrimaryItem
If Not s Is Nothing Then
    Set c = s.Characters
    'Do something with characters
End If