changing text symbol style?

travisslack1 — Mon, 13 Jun 2016 05:07:12 GMT

I have a chunk of code I managed to get working that labels a feature applies an expression and converts to annotation. I've figured out how to change the font variables but can't find any information on how to change the Text Symbol Style to something like a bullet leader with a box. how do i reference something like that? the code im using is below.

Shared Sub ConvertLabelsToAnnotationSingleLayerMapAnno(ByVal pMap As IMap, ByVal layerIndex As Integer)

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.esriMapAnnotation, _

esriLabelWhichFeatures.esriVisibleFeatures, True, _

pTrackCancel, Nothing)

Dim pLayer As ILayer = pMap.Layer(layerIndex)

Dim pGeoFeatureLayer As IGeoFeatureLayer = pLayer

If Not pGeoFeatureLayer Is Nothing Then

Dim pAnnoLayerPropsColl As IAnnotateLayerPropertiesCollection

pAnnoLayerPropsColl = pGeoFeatureLayer.AnnotationProperties

Dim pAnnoLayerProps As IAnnotateLayerProperties

pAnnoLayerPropsColl.Clear()

Dim pBOLayerProps As IBasicOverposterLayerProperties

pBOLayerProps = New BasicOverposterLayerProperties

pBOLayerProps.FeatureType = esriBasicOverposterFeatureType.esriOverposterPolygon

pBOLayerProps.NumLabelsOption = esriBasicNumLabelsOption.esriOneLabelPerShape

pBOLayerProps.FeatureWeight = esriBasicOverposterWeight.esriNoWeight

pBOLayerProps.LabelWeight = esriBasicOverposterWeight.esriLowWeight

Dim tSym As ITextSymbol

tSym = New TextSymbol

Dim font As IFontDisp

font = tSym.Font

font.Bold = False

font.Size = 13

tSym.Font = font

Dim pLELayerProps As ILabelEngineLayerProperties

pLELayerProps = New LabelEngineLayerProperties

pLELayerProps.Expression = "[TYPE]"

pLELayerProps.Symbol = tSym

pLELayerProps.BasicOverposterLayerProperties = pBOLayerProps

pAnnoLayerProps = pLELayerProps

'pAnnoLayerProps.Class = "Class"

pAnnoLayerPropsColl.Add(pAnnoLayerProps)

pGeoFeatureLayer.DisplayAnnotation = True

Dim pFeatureClass As IFeatureClass = pGeoFeatureLayer.FeatureClass

pConvertLabelsToAnnotation.AddFeatureLayer(pGeoFeatureLayer, pGeoFeatureLayer.Name + "_Anno", _

Nothing, Nothing, False, False, False, False, False, "")

'Do the conversion.

pConvertLabelsToAnnotation.ConvertLabels()

'Turn off labeling for the layer converted.

pGeoFeatureLayer.DisplayAnnotation = False

'Refresh the map to update the display.

Dim pActiveView As IActiveView = pMap

pActiveView.Refresh()

End If

End Sub

topic changing text symbol style? in ArcObjects SDK Questions

changing text symbol style?