Converting labels to geodatabase annotation for an entire map

About converting labels to geodatabase annotation for an entire map

static void ConvertLabelsToGDBAnnotationEntireMap(IMap pMap, bool featureLinked)
{
    IConvertLabelsToAnnotation pConvertLabelsToAnnotation=new
        ConvertLabelsToAnnotationClass();
    ITrackCancel pTrackCancel=new CancelTrackerClass();
    //Change global level options for the conversion by sending in different parameters to the next line.
    pConvertLabelsToAnnotation.Initialize(pMap,
        esriAnnotationStorageType.esriDatabaseAnnotation,
        esriLabelWhichFeatures.esriVisibleFeatures, true, pTrackCancel, null);
    IUID pUID=new UIDClass();
    pUID.Value="{E156D7E5-22AF-11D3-9F99-00C04F6BC78E}"; 
        //IGeoFeatureLayer interface ID.
    IMapLayers pMapLayers=pMap as IMapLayers;
    IEnumLayer pEnumLayer=pMapLayers.get_Layers(pUID as UIDClass, true);
    pEnumLayer.Reset();
    IGeoFeatureLayer pGeoFeatureLayer=pEnumLayer.Next()as IGeoFeatureLayer;

    while (pGeoFeatureLayer != null)
    {
        if (pGeoFeatureLayer.Valid == true)
        {
            if (pMapLayers.IsLayerVisible(pGeoFeatureLayer as ILayer))
            //Takes scale and groups layers into account.
            {
                if (pGeoFeatureLayer.DisplayAnnotation == true)
                {
                    IFeatureClass pFeatureClass=pGeoFeatureLayer.FeatureClass;
                    IDataset pDataset=pFeatureClass as IDataset;
                    IFeatureWorkspace pFeatureWorkspace=pDataset.Workspace as
                        IFeatureWorkspace;

                    //Add the layer information to the converter object. Specify the parameters of the output annotation feature class here as well.
                    pConvertLabelsToAnnotation.AddFeatureLayer(pGeoFeatureLayer,
                        pGeoFeatureLayer.Name + "_Anno", pFeatureWorkspace,
                        pFeatureClass.FeatureDataset, featureLinked, false, false,
                        true, true, "");
                }
            }
        }
        pGeoFeatureLayer=pEnumLayer.Next()as IGeoFeatureLayer;
    }
    //Do the conversion.
    pConvertLabelsToAnnotation.ConvertLabels();
    IEnumLayer pAnnoEnumLayer=pConvertLabelsToAnnotation.AnnoLayers;
    //Turn off labeling for the layers converted.
    pEnumLayer.Reset();
    pGeoFeatureLayer=pEnumLayer.Next()as IGeoFeatureLayer;
    while (pGeoFeatureLayer != null)
    {
        if (pGeoFeatureLayer.Valid == true)
        {
            if (pMapLayers.IsLayerVisible(pGeoFeatureLayer as ILayer))
            //Takes scale and groups layers into account.
            {
                if (pGeoFeatureLayer.DisplayAnnotation == true)
                    pGeoFeatureLayer.DisplayAnnotation=false;
            }
        }
        pGeoFeatureLayer=pEnumLayer.Next()as IGeoFeatureLayer;
    }
    //Add the result annotation layer to the map.
    pMap.AddLayers(pAnnoEnumLayer, true);
    //Refresh the map to update the display.
    IActiveView pActiveView=pMap as IActiveView;
    pActiveView.Refresh();
}

Shared Sub ConvertLabelsToGDBAnnotationEntireMap(ByVal pMap As IMap, ByVal featureLinked As Boolean)

Dim pConvertLabelsToAnnotation As IConvertLabelsToAnnotation=New ConvertLabelsToAnnotationClass()
Dim pTrackCancel As ITrackCancel=New CancelTrackerClass()
'Change global level options for the conversion by sending in different parameters to the next line.
pConvertLabelsToAnnotation.Initialize(pMap, esriAnnotationStorageType.esriDatabaseAnnotation, _
                                      esriLabelWhichFeatures.esriVisibleFeatures, True, pTrackCancel, Nothing)

Dim pUID As IUID=New UIDClass()
pUID.Value="{E156D7E5-22AF-11D3-9F99-00C04F6BC78E}" 'IGeoFeatureLayer interface ID.

Dim pMapLayers As IMapLayers=pMap
Dim pEnumLayer As IEnumLayer=pMapLayers.Layers(pUID, True)
pEnumLayer.Reset()

Dim pGeoFeatureLayer As IGeoFeatureLayer=pEnumLayer.Next()


While Not pGeoFeatureLayer Is Nothing
    If pGeoFeatureLayer.Valid=True Then
        If pMapLayers.IsLayerVisible(pGeoFeatureLayer) Then
            If pGeoFeatureLayer.DisplayAnnotation=True Then
                Dim pFeatureClass As IFeatureClass=pGeoFeatureLayer.FeatureClass
                Dim pDataset As IDataset=pFeatureClass
                Dim pFeatureWorkspace As IFeatureWorkspace=pDataset.Workspace
                
                'Add the layer information to the converter object. Specify the parameters of the output annotation feature class here as well.
                pConvertLabelsToAnnotation.AddFeatureLayer(pGeoFeatureLayer, pGeoFeatureLayer.Name & "_Anno", _
                                                           pFeatureWorkspace, pFeatureClass.FeatureDataset, _
                                                           featureLinked, False, False, True, True, "")
            End If
        End If
    End If
    pGeoFeatureLayer=pEnumLayer.Next()
End While

'Do the conversion.
pConvertLabelsToAnnotation.ConvertLabels()

Dim pAnnoEnumLayer As IEnumLayer=pConvertLabelsToAnnotation.AnnoLayers

'Turn off labeling for the layers converted.
pEnumLayer.Reset()
pGeoFeatureLayer=pEnumLayer.Next()
While Not pGeoFeatureLayer Is Nothing
    If pGeoFeatureLayer.Valid=True Then
        If pMapLayers.IsLayerVisible(pGeoFeatureLayer) Then
            If pGeoFeatureLayer.DisplayAnnotation=True Then
                pGeoFeatureLayer.DisplayAnnotation=False
            End If
        End If
    End If
    pGeoFeatureLayer=pEnumLayer.Next()
End While

'Add the result annotation layer to the map.
pMap.AddLayers(pAnnoEnumLayer, True)

'Refresh the map to update the display.
Dim pActiveView As IActiveView=pMap
pActiveView.Refresh()
End Sub