VBA ArcObjects: Как в GroupLayer добавить еще GroupLayer

[nickleb]

Здравствуйте. Каким методом через какой класс ArcObjects в скрипте VBA к GroupLayer добавить еще GroupLayer

[nickleb]

Сделал. М.б. кому пригодится.
Вот как добавить новый групповой слой к существующему групповому

Код: Выделить всё

''Слой существующий
Dim pGroupLayer As IGroupLayer
Set pGroupLayer = pLayer

'''Новый слой
Dim pNewGroupLayer As IGroupLayer
Set pNewGroupLayer = New GroupLayer
pNewGroupLayer.Name = New_Group_Layer

'''Добавляем новый слой к существующему
pGroupLayer.Add pNewGroupLayer

Код: Выделить всё