如何將形狀存儲到變量中？

Question

以下的Visio宏（使用VBA）旋轉當前選擇的形狀：

ActiveWindow.Selection.Rotate90 

我怎樣才能該形狀存儲到一個變量？我嘗試了下面的代碼。

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

該代碼無法編譯，它給了我一個「選擇」上的「參數不可選」錯誤。

如果我將其更改爲選擇（0），則會出現運行時錯誤「無效的選擇標識符」。

如果我嘗試選擇（1），我得到的是「對象變量或塊變量未設置」，我猜是VBA抱怨選擇中只有一個對象的方式。

Answer 1

您應該使用Set而不是Let Here。