Is This Content Helpful?
How can we make this better? Please provide as much detail as possible.
Contact our Support Team
This sample code shows how to programmatically contract the legend for a raster layer using ArcObjects.
Set the ILegendGroup Visible property to False to contract the legend in the Table of Contents (TOC).
Code:
Sub RasterRend()
Dim pDoc As IMxDocument
Set pDoc = ThisDocument
Dim pMap As IMap
Set pMap = pDoc.FocusMap
Dim pLayer As IRasterLayer
Set pLayer = pMap.Layer(0)
Dim pRend As IRasterRenderer
Set pRend = pLayer.Renderer
Dim pLegInfo As ILegendInfo
Set pLegInfo = pRend
Dim pLegGroup As ILegendGroup
Set pLegGroup = pLegInfo.LegendGroup(0)
pLegGroup.Visible = False
pDoc.UpdateContents
End Sub
Last Published: 5/5/2016
Article ID: 000004813