Le portail francophone de la géomatique

''
'' FONCTION  : Application d'une symbologie contenue dans un fichier lyr
'' Parametres : strFileLyr - nom et chemin d'acces du fichier lyr
''          pFeatureLayer - (Feature) Layer a appliquer la symbologie contenue dans le fichier lyr
''
''
Sub ApplyLayerLyrSymbology(strFileLyr As String, pFeatureLayer As IFeatureLayer)
Dim pMxDoc As IMxDocument
Dim pMap As IMap
Dim pGxLayer As IGxLayer
Dim pGxFile As IGxFile
Dim strLayerPath As String
Set pMxDoc = ThisDocument

Set pMap = pMxDoc.FocusMap

'Get the layer file
Set pGxLayer = New GxLayer
Set pGxFile = pGxLayer

' Set this variable to the location of the layer file
strLayerPath = strFileLyr
pGxFile.Path = strLayerPath

Dim pGeoLayer As IGeoFeatureLayer
Set pGeoLayer = pGxLayer.Layer

' Get the Symbology from the layer
Dim pRend As IUniqueValueRenderer
Set pRend = pGeoLayer.Renderer

'Get the layer you would like to apply the symbology to
Dim pLayer As IGeoFeatureLayer
Set pLayer = pFeatureLayer

'Apply the layer files symbology
Set pLayer.Renderer = pRend

'Refresh the view and the Table of Contents
pMxDoc.ActiveView.Refresh
pMxDoc.UpdateContents

End Sub