ラベルエンジンを Maplex に変更する方法

'http://help.arcgis.com/en/sdk/10.0/vba_desktop/conceptualhelp/index.html#//0001000000m0000000

'標準ラベルエンジンはAnnotateMapをインスタンス化

Public Sub ChangeMxDocumentLabelEngine()
    
    'This simple subroutine will change the label engine for all data frames in a map to be the maplex label engine
    'You should have a maplex license enabled before running this code
    
    Dim pMxDoc As IMxDocument
    Dim pMaps As IMaps
    Dim pMap As IMap
    Dim index As Long
    Dim pAnnotateMap As IAnnotateMap
    
    Set pMxDoc = ThisDocument
    Set pMaps = pMxDoc.Maps
    
    'loop through all the maps
    For index = 0 To pMaps.Count - 1
        Set pAnnotateMap = New esriMaplex.MaplexAnnotateMap 'cocreate a new MaplexAnnotateMap object
        Set pMap = pMaps.Item(index) 'get the map at the current index
        Set pMap.AnnotationEngine = pAnnotateMap 'set the map AnnotationEngine to be MaplexAnnotateMap
        'after setting the AnnotationEngine, the Map automatically translates all labeling properties to Maplex.
    Next index
    
End Sub