エレメント オブジェクトに基準縮尺を設定

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

Sub test()
    Dim pMxDocument As IMxDocument
    Set pMxDocument = ThisDocument
     
    Dim pGraphicsContainerSelect As IGraphicsContainerSelect
    Set pGraphicsContainerSelect = pMxDocument.FocusMap
     
    Dim pElementProperties2 As IElementProperties2
    Set pElementProperties2 = pGraphicsContainerSelect.SelectedElement(0)
     
    pElementProperties2.ReferenceScale = 150000
     
    pMxDocument.ActiveView.Refresh
 
End Sub

関連記事

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

Copyright© WINGFIELD since1981 , 2018 All Rights Reserved.