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

Question

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

ActiveWindow.Selection.Rotate90

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

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

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

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

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

Answer 1

您应该在这里使用 Set 而不是 Let。