ラベルエンジンを 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