从选择 visio 中检索形状

【问题标题】：retrieve shape from the selection visio从选择 visio 中检索形状
【发布时间】：2015-12-11 23:11:48
【问题描述】：

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

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

但是我在构造 c 时出错了。我想做的事有可能吗？

【问题讨论】：

你得到什么错误？

标签： vba visio

【解决方案1】：

普通绘图页中的 ContainingShape 方法可能会返回页面本身 (ID = 0)，这不支持 Characters 对象。选择可能包含多个形状，但如果选择为空，PrimaryItem 属性将返回单个形状或 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

【讨论】：