AnsweredAssumed Answered

Map Legend Help

Question asked by crowleyf on Apr 23, 2010
Latest reply on Apr 23, 2010 by crowleyf
Hi all I know this is a long shot but if anyone has any ideas it would be greatly welcome. Below (& attached) is a sample code I got from the help section in ArcMaps it is used for adding a legend and North arrow to the map layout. I have attached a screen shot of the resultant map layout. However I would like to have the legend displayed without the file/layer name and field name. I have tried looking around on the internet and tried using the Ilegenditem interface and using the following code;

Dim pFeatureLayer As IFeatureLayer
Set pLegendItem = New HorizontalLegendItem
With pLegendItem
.ShowDescriptions = False
.ShowHeading = False
.ShowLabels = False
.ShowLayerName = False
End With

But no luck, if anyone has any ideas or could direct me where to get the macros for adding a map legend without the layer & field name in it or macros that could be easily altered so as to not display the layer or value names in the legend it would be greatly welcome.
Thanks





Public Sub AddMapSurrounds()

Dim pMxDoc As IMxDocument
Dim pActiveView As IActiveView
Dim pEnv As IEnvelope
Dim pID As New UID
Dim pMapSurround As IMapSurround
Dim pMarkerNorthArrow As IMarkerNorthArrow
Dim pCharacterMarkerSymbol As ICharacterMarkerSymbol
Dim pLegendItem As ILegendItem
Set pMxDoc = Application.Document
Set pActiveView = pMxDoc.PageLayout
Set pEnv = New Envelope
Dim pFeatureLayer As IFeatureLayer


'Add a north arrow
pEnv.PutCoords 0.2, 0.2, 1, 1
pID.Value = "esriCore.MarkerNorthArrow"
Set pMapSurround = CreateSurround(pID, pEnv, "North Arrow", pMxDoc.FocusMap, pMxDoc.PageLayout)
'Change out the default north arrow
Set pMarkerNorthArrow = pMapSurround 'QI
Set pCharacterMarkerSymbol = pMarkerNorthArrow.MarkerSymbol 'clones the symbol
pCharacterMarkerSymbol.CharacterIndex = 200 'change the symbol
pMarkerNorthArrow.MarkerSymbol = pCharacterMarkerSymbol 'set it back

'Add a legend
'In this case just use the default legend
pEnv.PutCoords 7.5, 0.2, 8.5, 4
pID.Value = "esriCore.Legend"

Set pFeatureLayer = pMxDoc.FocusMap.Layer(0)
Set pLegendItem = HorizontalLegendItem
'??LegendItem???????
With pLegendItem
Set .Layer = pFeatureLayer
'.Columns = 1
.ShowDescriptions = False
.ShowHeading = False
.ShowLabels = False
.ShowLayerName = False
End With

Set pMapSurround = CreateSurround(pID, pEnv, "Legend", pMxDoc.FocusMap, pMxDoc.PageLayout)


'Set pLegendItem =
'pLegendItem.ShowLayerName = False
'pLegendItem.ShowLabels = False
'Set .Layer = pFeatureLayer
'.Columns = 1
'.ShowDescriptions = False
'.ShowHeading = False


'End With


'Refresh the graphics
pActiveView.PartialRefresh esriViewGraphics, Nothing, Nothing
End Sub


Private Function CreateSurround(pID As UID, pEnv As IEnvelope, strName As String, _
pMap As IMap, pPageLayout As IPageLayout) As IMapSurround

Dim pGraphicsContainer As IGraphicsContainer
Dim pActiveView As IActiveView
Dim pMapSurroundFrame As IMapSurroundFrame
Dim pMapSurround As IMapSurround
Dim pMapFrame As IMapFrame
Dim pElement As IElement

'MapSurrounds are held in a MapSurroundFrame
'MapSurroundFrames are related to MapFrames
'MapFrames hold Maps
Set pGraphicsContainer = pPageLayout
Set pMapFrame = pGraphicsContainer.FindFrame(pMap)
Set pMapSurroundFrame = pMapFrame.CreateSurroundFrame(pID, Nothing)
pMapSurroundFrame.MapSurround.Name = strName

'Set the geometry of the MapSurroundFrame to give it a location
'Activate it and add it to the PageLayout's graphics container
Set pElement = pMapSurroundFrame
Set pActiveView = pPageLayout
pElement.Geometry = pEnv
pElement.Activate pActiveView.ScreenDisplay
pGraphicsContainer.AddElement pElement, 0

Set CreateSurround = pMapSurroundFrame.MapSurround
End Function

Outcomes