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

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