SUM

Question
I want to apply one layer's symbology simultaneously to a set of selected
layers in ArcMap.

Answers
AV 8.1
Wim Ligtendag from ESRI Netherlands sent me the VBA script below.
Paste into a macro module in VBA.  Applies first layer's legend to all other
layers in data frame except grouped layers.

Public Sub AllLayersTheSame()
    Dim pMap As IMap
    Dim pMxDoc As IMxDocument
    Dim pGeoFeatLayer As IGeoFeatureLayer
    Dim pRenderer As IFeatureRenderer
    Dim teller As Long
    Dim pActiveview As IActiveView

    '  Get the Map
    Set pMxDoc = ThisDocument
    Set pMap = pMxDoc.FocusMap
    '  Look for the first layer and get its renderer
    If pMap.LayerCount < 1 Then
        Exit Sub
    End If
    If TypeOf pMap.Layer(0) Is IGeoFeatureLayer Then
        Set pGeoFeatLayer = pMap.Layer(0)
    Else
        Exit Sub
    End If
    Set pRenderer = pGeoFeatLayer.Renderer
    ' Attach this renderer to all other FeatureLayers
    For teller = 1 To pMap.LayerCount - 1
        If TypeOf pMap.Layer(teller) Is IGeoFeatureLayer Then
        Set pGeoFeatLayer = pMap.Layer(teller)
        Set pGeoFeatLayer.Renderer = pRenderer
        End If
    Next
    '  Redraw the ActiveView and also the Table of Contents
    Set pActiveview = pMap
    pActiveview.Refresh
    pMxDoc.ContentsView(0).Refresh 0
End Sub

AV3.2
Bill Voigt sent me this script for Avenue
'=============Begin script===================
theView =  av.GetActiveDoc
theThemes = theView.GetActiveThemes
theAVL = fileDialog.Show("*.avl","ArcView Legend Files", "")

for each t in theThemes
        theLegend = t.getlegend
                theLegend.Load(theAVL,#LEGEND_LOADTYPE_ALL)
end
theView.InvalidateTOC(true)
'==============End Script====================

Peter L. Fellows, GIS Planner
Lamoille County Planning Commission
PO Box 1009, 43 Portland Street
Morrisville, VT 05661-1009
v:802.888.4548 f:802.888.6938
mailto:pfellows.lcpc@pshift.com
http://lamoillecountyplanning.org