ラベルエンジンの切り替え

Protected Overrides Sub OnClick()

Dim pMaps As IMaps
Dim pMap As IMap
Dim index As Long
pMaps = My.ArcMap.Document.Maps
Dim pAnnotateMap As IAnnotateMap

For index = 0 To pMaps.Count - 1

pMap = pMaps.Item(index) 'get the map at the current index
pAnnotateMap = pMap.AnnotationEngine

If TypeOf pAnnotateMap Is IMaplexAnnotateMap Then
MessageBox.Show("データフレーム「" & pMap.Name & "」を標準ラベルに変更前:pMap.AnnotationEngine.Name=" & pMap.AnnotationEngine.Name.ToString)
pMap.AnnotationEngine = New ESRI.ArcGIS.Carto.AnnotateMap
MessageBox.Show("データフレーム「" & pMap.Name & "」を標準ラベルに変更後:pMap.AnnotationEngine.Name=" & pMap.AnnotationEngine.Name.ToString)
Else
MessageBox.Show("データフレーム「" & pMap.Name & "」をMaplexラベルに変更前:pMap.AnnotationEngine.Name=" & pMap.AnnotationEngine.Name.ToString)
pMap.AnnotationEngine = New ESRI.ArcGIS.Maplex.MaplexAnnotateMapClass
MessageBox.Show("データフレーム「" & pMap.Name & "」をMaplexラベルに変更後:pMap.AnnotationEngine.Name=" & pMap.AnnotationEngine.Name.ToString)
End If

Next index

End Sub