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

 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

Copyright© WINGFIELD since1981 , 2018 All Rights Reserved.