Как я могу сохранить форму в переменной?

Следующий макрос Visio (с использованием VBA) поворачивает текущую выбранную фигуру:

ActiveWindow.Selection.Rotate90

Как я могу сохранить эту форму в переменной? Я попробовал код ниже.

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

Этот код не компилируется, он дает мне ошибку «аргумент не является необязательным» в «Выборе».

Если я изменю его на Selection (0), я получу ошибку времени выполнения «Недопустимый идентификатор выбора».

Если я попробую Selection(1), вместо этого я получу «Переменная объекта или с переменной блока не установлена», что, как я предполагаю, является способом VBA жаловаться на то, что в выборе есть только один объект.


person redtuna    schedule 16.09.2009    source источник


Ответы (1)


Вы должны использовать Set вместо Let здесь.

person Beatles1692    schedule 16.09.2009
comment
действительно, это исправило это! Спасибо! - person redtuna; 16.09.2009