Enhancement
Remove raster symbology outline in legend.
| Enhancement ID Number | NIM000130 |
|---|---|
| Submitted | August 22, 2014 |
| Last Modified | April 2, 2025 |
| Applies to | No Product Found |
| Version found | 9.1 |
| Status | Will Not Be Addressed |
Additional Information
No Public ExplanationAlternate Workflow
' Remove outlines from raster legend' Kirk Kirk Kuykendall
' <a href="http://forums.esri.com/Thread.asp?c=93&f=989&t=83387" target="_blank">http://forums.esri.com/Thread.asp?c=93&f=989&t=83387</a>
' To use:
' add the module (Alt-F11, Insert Module)
' convert legend to graphic, select the graphic & Tools/Macro, run Test
' You can then connect the macro to a button if you wish for quick access.
Option Explicit
Sub Test()
Dim pMxDoc As IMxDocument
Set pMxDoc = ThisDocument
Dim pGCS As IGraphicsContainerSelect
Set pGCS = pMxDoc.PageLayout
If pGCS.ElementSelectionCount = 0 Then
Debug.Print "no elements selected"
Else
Dim l As Long
For l = 0 To pGCS.ElementSelectionCount - 1
HideBorders pGCS.SelectedElement(l)
Next l
pMxDoc.ActiveView.Refresh
End If
End Sub
Sub HideBorders(pElement As IElement)
' recursively assign null outlines to all fillshapeelements in the
' element (which might be a group element)
If TypeOf pElement Is IFillShapeElement Then
Dim pFSE As IFillShapeElement
Set pFSE = pElement
' Debug.Print pFSE.Symbol.Outline Is Nothing ' COM contract
violation
If TypeOf pFSE.Symbol Is IColorSymbol Then
' replace the rasterRGBSymbo with a
' simplefillsymbol
Dim pSFS As ISimpleFillSymbol
Set pSFS = New SimpleFillSymbol
pSFS.Style = esriSFSSolid
pSFS.Color = pFSE.Symbol.Color
Dim pSLS As ISimpleLineSymbol
Set pSLS = New SimpleLineSymbol
pSLS.Style = esriSLSNull
pSFS.Outline = pSLS
pFSE.Symbol = pSFS
End If
Else
If TypeOf pElement Is IGroupElement Then
Dim pGElement As IGroupElement
Set pGElement = pElement
Dim l As Long
For l = 0 To pGElement.ElementCount - 1
HideBorders pGElement.Element(l)
Next l
End If
End If
End Sub
Steps to Reproduce
Get notified when the status of a bug changes
Discover more on this topic
Search for related information
Find training related to this topic
Contact technical support
Download the Esri Support App