Сгруппировать объекты

[Oleg_Sh]

Не могу поместить объекты в группу.

    myIll = New Illustrator.Application
    myDoc = myIll.ActiveDocument

    Dim newGroup1 As Illustrator.GroupItem = myDoc.GroupItems.Add()

    For a = 1 To myDoc.PageItems.Count
         Dim curItem = myDoc.PageItems.Item(a)
         curItem.Move(newGroup1, Illustrator.AiElementPlacement.aiPlaceAtBeginning)
     Next

При выполнении curItem.Move выпадает с ошибкой "COMExeption не обработано. an Illustrator error occurred: 1346458189 ('PARM')"
Помогите найти ошибку. Или может есть другой способ сгруппировать все объекты?

 

[Oleg_Sh]

Сам нашел источник проблем.
PageItem не имеет метода Move. Вместо PageItems надо использовать PathItems

 

[Skvoznyak]

имеет вообще-то

PageItem.move (relativeObject: Object , insertionLocation: ElementPlacement ): PageItem
Adobe Illustrator 18 Type Library
Move the object.
relativeObject: Data Type: Object
insertionLocation: Data Type: ElementPlacement


в приведенном примере группа неминуемо будет пихаться сама в себя, может в этом дело?