Bonjour,

voila j'ai ajouté une barre d'outils pour permettre d'ajouter des icones (warning, stop, etc..). pour ça pas de souci, j'utilise

Code : Sélectionner tout - Visualiser dans une fenêtre à part
Selection.InlineShapes.AddPicture
maintenant je veux ajouter des zones de texte associées à ces images, certaines zones de textes (textbox) sont à coté de l'icone (même ligne) et d'autres doivent être en dessous de l'icone.

sauf que je rencontre deux pb:
1er : rendre la zone de texte "aligné sur le texte" (qd la zone de texte est à coté)

j'ai essayé ttes les options du

Code : Sélectionner tout - Visualiser dans une fenêtre à part
oShape.ZOrder
mais l'option n'est jamais sélectionnée

2eme : je n'arrive pas à trouver la methode pour positionner ma zone de texte juste en dessous de mon icone (et collé à l'icone).

avez vous des idées pour ces deux problèmes.

merci de votre aide.

exemple quand le texte est à coté de l'icone

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
    Dim oShape As Shape
    Dim top, left As Variant
    Call InsererIcone
    ' Get position of left margin relative to left edge of page
    left = Selection.Information(wdHorizontalPositionRelativeToPage)
    ' Get vertical position of cursor
    top = Selection.Information(wdVerticalPositionRelativeToPage)
    Set oShape = ActiveDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, left, top, 180, 100)
    oShape.TextFrame.TextRange.Text = "texte explicatif"
    ' Set text box property: "Resize AutoShape to fit text"
    oShape.TextFrame.AutoSize = True
    'oShape.TextFrame.TextRange.Select
    oShape.ZOrder msoSendToBack