如何将形状存储到变量中？

Question

以下Visio宏（使用VBA）旋转当前选定的形状：

ActiveWindow.Selection.Rotate90

如何将该形状存储到变量中？我尝试了下面的代码。

Dim s1 as Shape
Let s1 = ActiveWindow.Selection
s1.Rotate90

该代码无法编译，它在“选择”上给出了“参数不可选”错误。

如果我将其更改为Selection（0），我会收到运行时错误“无效的选择标识符”。

如果我尝试选择（1）我得到“对象变量或没有设置块变量”，我猜测是VBA抱怨选择中只有一个对象的方式。

Answer 1

你应该使用Set而不是Let here。