Здравствуйте.
Допустим имеется следующий код

....
Dim Rect as Shape, ActiveObject as Shape
Set ActiveObject=ActiveSelection
Set Rect=ActiveLayer.CreateRectangle2(0,0,100,100)
ActiveObject.Fill.Uniformcolor.RGBAssign 255,0,0

Пусть имеется выделенный объект. Присваиваем его переменной ActiveObject
Если теперь я создам прямоугольник а после этого залью цветом ActiveObject то зальется цветом не тот объект, который был выделен, а созданный прямоугольник. Т.е получается что ActiveObject уже прямоугольник. Вопрос такой: Получается что в переменной ActiveObject не сохраняется первоначально выделенный объект, т.е эта переменная действует как бы ссылка на текущий выделенный объект? (в данном случае текущим становится прямоугольник)

AndreTM,
объектной модели не нашел зарезервированного слова ActiveObject, но все равно попробовал переименовать имя переменной. Ситуация не изменилась
Помогло следующее
Dim ShRange as ShapeRange

ShRange.Add ActiveSelection
Set Rect=ActiveLayer.CreateRectangle2(0,0,100,100)
ShRange.Add Rect
ShRange(1).Fill.UniformColor...ну и так далее)
видимо переменная действительно как ссылки действовала на выделенный текущий объект