Option Explicit Sub SpatialJoinWithArcMapUI() Dim pMxDocument As IMxDocument Set pMxDocument = ThisDocument 'アクティブなデータフレームの取得 Dim pMap As IMap Set pMap = pMxDocument.FocusMap 'ソース フィーチャ レイヤーの取得 Dim pSourseFeatureLayer As IFeatureLayer Set pSourseFeatureLa ...