IMapDocument の使用方法

Public Sub OpenMapDocument()
    Dim pMapDocument As IMapDocument
    Set pMapDocument = New MapDocument
     
    pMapDocument.Open "D:\Workspace\MapDocument.mxd"
     
    '任意のデータフレームを取得
    Dim pActiveView As IMap
    Set pActiveView = pMapDocument.Map(0)
     
    pMapDocument.SetActiveView pActiveView  '任意のデータフレームをアクティブに設定
     
    pMapDocument.Save True, True    '上書き保存
 
End Sub