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