Amélioration
Remove raster symbology outline in legend.
| Numéro d’ID d’amélioration | NIM000130 |
|---|---|
| Envoi | August 22, 2014 |
| Dernière modification | April 2, 2025 |
| S’applique à | No Product Found |
| Version trouvée | 9.1 |
| Statut | Will Not Be Addressed |
Informations supplémentaires
No Public ExplanationProcessus alternatif
' 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
Étapes pour reproduire
Recevoir une notification lorsque le statut d’un bogue change
En savoir plus sur ce sujet
Rechercher des informations associées
Rechercher une formation sur ce sujet
Contacter le support technique
Télécharger l’application Esri Support