選択エレメントの取得

 2016/9/1 (木)    

Dim pGCS As IGraphicsContainerSelect
Set pGCS = pMxDoc.PageLayout
 
Dim pElement As IElement
Set pElement = pGCS.SelectedElement(0)

Copyright© WINGFIELD since1981 , 2018 All Rights Reserved.