グループ レイヤー内の移動

投稿日:2016/9/1 (木) 更新日:

Dim pMxDocument As IMxDocument
Set pMxDocument = Application.Document
 
Dim pMap As IMap
Set pMap = pMxDocument.FocusMap
 
Dim pCompositeLayer As ICompositeLayer
Set pCompositeLayer = pMap.Layer(0)
 
Dim pMapLayer As IMapLayers
Set pMapLayer = pMap
 
pMapLayer.MoveLayerEx pCompositeLayer, pCompositeLayer, pCompositeLayer.Layer(0), 2
 
pMxDocument.UpdateContents

関連記事

-プログラミング, ArcGIS
-, ,

Copyright© WINGFIELD since1981 , 2018 All Rights Reserved.