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

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