Annonce
L'appel à participation est ouvert jusqu'au 19 janvier 2025!
#1 Tue 08 August 2006 10:33
- chris
- Participant actif
- Lieu: florensac
- Date d'inscription: 7 Sep 2005
- Messages: 56
VBA - rendre les couches sélectionnables
Bonjour,
Je voudrais, par programmation, rendre certaines couches non sélectionnables et d'autres sélectionnables.
Qu'elle peut etre la solution
PS : je travaille sous Arcmap 8.3
Merci de vos réponses
Christelle VALLS
Géomaticienne
Hors ligne
#2 Tue 08 August 2006 12:54
- Frédéric Prally
- Participant occasionnel
- Date d'inscription: 25 Oct 2005
- Messages: 16
Re: VBA - rendre les couches sélectionnables
Bonjour,
Voici un exemple qui pourra certainement t'aider. Il permet de rendre non sélectionnable toutes les couches vecteurs.
Code:
Public Sub MakeselectableLayer()
'***Description : Permet de définir les couches sélectionnables
Dim pMxDoc As IMxDocument
Set pMxDoc = ThisDocument
Dim pMap As IMap
Set pMap = pMxDoc.FocusMap
Dim pLayers As IEnumLayer
Set pLayers = pMap.Layers
Dim pLayer As ILayer
Set pLayer = pLayers.Next
Do Until pLayer Is Nothing
If TypeOf pLayer Is IFeatureLayer Then
Dim pFLayer As IFeatureLayer
Set pFLayer = pLayer
pFLayer.Selectable = False
End If
Set pLayer = pLayers.Next
Loopen espérant que cela t'aide.
Hors ligne
#3 Tue 08 August 2006 15:19
- chris
- Participant actif
- Lieu: florensac
- Date d'inscription: 7 Sep 2005
- Messages: 56
Re: VBA - rendre les couches sélectionnables
exactement ce qu'il me fallait. Merci
Christelle VALLS
Géomaticienne
Hors ligne
