Annonce
#1 Thu 31 March 2005 09:49
- Albanthomas1
- Invité
selection layer vba
De: alban
bonjour,
pour les besoins d'une interface d'edition, je souhaiterai selectionner un layer grace a un formulaire.
j'arrive actuellement a selectionner le bloc de donnees et la colonne du shape, mais pas le shape lui-meme ;o(
j'arrive a avoir un layerset mais je n'arrive pas a le selectionner, c'est a dire qu'il devienne le :
pmxdocument.selectedlayer
si vous avez des idees, je suis tres preneur ! sinon, j'ai essaye de passer par l'interface icontentsview et ses items, mais j'arrive pas a transcrire un layer en item ?
merci d'avance
#2 Sat 02 April 2005 19:13
- Frederic Prally SETEGUE
- Invité
Re: selection layer vba
Salut Alban,
S=92il s=92agit de faire apparaitre la s=E9lection =AB bleue =BB =
d=92une couche dans
la table des matieres, tu peux essayer le script suivant.
En esp=E9rant que cela r=E9ponde a ta question.
Cordialement
Public Sub SelectionCouchedansTOC()
'*** S=E9lectionne la premiere couche dans la table des matiere
Dim pMxDoc As IMxDocument
Dim pTOC As IContentsView
Dim pMap As IMap
Dim pLayer As ILayer
Set pMxDoc =3D ThisDocument
Set pTOC =3D pMxDoc.ContentsView(2) ' Onglet Affichage
Set pMxDoc.CurrentContentsView =3D pTOC
Set pMap =3D pMxDoc.FocusMap
Set pLayer =3D pMap.Layer(0)
'Affiche la s=E9lection de la premiere couche
pTOC.SelectedItem =3D pLayer
'Rafraichissement de la TOC
pMxDoc.UpdateContents
End Sub
__________________________________
PRALLY Fr=E9d=E9ric
