Le portail francophone de la géomatique

Dim mondoc As IMxDocument
Dim pLayout As IPageLayout
Dim pGraphics As IGraphicsContainerSelect
Dim pElementProp As IElementProperties
Dim pTextElement As ITextElement
Dim matable As ITable
Dim maligne As IRow  
Dim UnElement As IElement
Dim pPoint As IPoint
Dim pGContainer As IGraphicsContainer

    Set mondoc = ThisDocument
    Set pLayout = mondoc.PageLayout
    Set pGraphics = pLayout
    pGraphics.SelectAllElements
    'dans un boucle qui permet de renseigner toutes les zones texte à partir de la base
    For i = 0 To pGraphics.ElementSelectionCount - 1
        Set pElementProp = pGraphics.SelectedElement(i)
        If TypeOf pElementProp Is ITextElement Then
            'on choisit la zone une zone de text particulière
            If pElementProp.Name = "txt_surface" Then
                Set pTextElement = pElementProp
                If maligne.Value(matable.Fields.FindField("surface_parcelle")) <> "" Then
        'on la remplit avec la base
                    pTextElement.Text = maligne.Value(matable.Fields.FindField("surface_parcelle")) & " m²"
         'on lui donne des coordonnées
                    Set pGContainer = pLayout
                    Set pPoint = New Point
                    pPoint.x = 24.48
                    pPoint.y = 25.55
                    Set UnElement = pTextElement
                    UnElement.Geometry = pPoint
                    pGContainer.UpdateElement UnElement
                    Else
                    pTextElement.Text = "-"
                End If
            End If
           .
           .
           .
     Next i