Le portail francophone de la géomatique

Public Sub PlaceTexteLayout()
'*** Permet de sélectionner l'emplacement précis des champs textes
    'dans le but de nommer ce champ en fonction nom choisit par l'utilisateur
    Dim pMxDoc As IMxDocument
    Dim pLayout As IPageLayout
    Dim pGraphics As IGraphicsContainerSelect
    
    Set pMxDoc = ThisDocument
    Set pLayout = pMxDoc.PageLayout
    Set pGraphics = pLayout
    
    If pGraphics.ElementSelectionCount <> 1 Then
        MsgBox "Veuillez sélectionner un seul élément texte.", vbExclamation
        Exit Sub
    End If
    
    Dim pElementProp As IElementProperties
    Set pElementProp = pGraphics.DominantElement
    
    Dim strName As String
    strName = InputBox("Saisir le nom du texte :", "Titre de l'élément graphique texte")
    
    pElementProp.Name = strName
End Sub

Public Sub IdentificationTextLayout()
'*** Permet d'identifier le nom de l'élément text sélectionné
    'Ce nom définit par l'utilisateur peut recevoir les valeurs
    'issues d'un champ par exemple
    Dim pMxDoc As IMxDocument
    Dim pLayout As IPageLayout
    Dim pGraphics As IGraphicsContainerSelect
    
    Set pMxDoc = ThisDocument
    Set pLayout = pMxDoc.PageLayout
    Set pGraphics = pLayout
    
    If pGraphics.ElementSelectionCount <> 1 Then
        MsgBox "Veuillez sélectionner un seul élément texte.", vbExclamation
        Exit Sub
    End If
    
    Dim pElementProp As IElementProperties
    Set pElementProp = pGraphics.DominantElement
    
    MsgBox "Le nom de l'élément texte est :" & pElementProp.Name
End Sub

''***Partie 3 : remplit les caractéristiques pour chaque objet
           
            Set pGraphics = pMxDoc.PageLayout
            pGraphics.Reset
            Set pElementProp = pGraphics.Next
            
            Do Until pElementProp Is Nothing
                Select Case pElementProp.name
                'Indique le nom de la commune
                    Case "pCommune"
                    Set pTextElement = pElementProp
                    If IsNull(pFeature.Value(pOrganeFClass.FindField("Commune"))) Then
                        pTextElement.Text = "-"
                    Else: pTextElement.Text = pFeature.Value(pOrganeFClass.FindField("Commune"))
                    End If