Добавление шейп-файла на карту при помощи VBA

[Jeka]

Помгиге!!! Надо прокомментировать все строки кода.

Private Sub UIButtonControl1_Click()
Dim pWorkspaceFactory As IWorkspaceFactory
Set pWorkspaceFactory = New ShapefileWorkspaceFactory 'Создается новый ShapefileWorkspaceFactory объект и открывается файл папки
Dim pWorkSpace As IFeatureWorkspace
Set pWorkSpace = pWorkspaceFactory.OpenFromFile("C:\Source", 0) 'Путь к директории с шейп-файлом, который хотим добавить
Dim pClass As IFeatureClass
Set pClass = pWorkSpace.OpenFeatureClass("USStates") 'Имя шейп-файла без расширения
Dim pLayer As IFeatureLayer
Set pLayer = New FeatureLayer
Set pLayer.FeatureClass = pClass
pLayer.Name = pClass.AliasName
Dim pMxDoc As IMxDocument
Set pMxDoc = ThisDocument
pMxDoc.AddLayer pLayer
pMxDoc.ActiveView.PartialRefresh esriViewGeography, pLayer, Nothing
End Sub

[trir]

Откуда объекты то???

[Александр Мурый]

Код взят отсюда, как я понял? А сами не хотите ли почитать хелп? Список ресурсов по ArcGIS+VBA есть в этой теме.