Zones de texte

[gegadin]

Bonjour

Chtites questions à propos des zones de texte. Je souhaite coder une macro permettant à l'utilisateur de créer une zone de texte dans la marge au niveau de l'endroit du texte ou il a cliqué. Pourriez vous m'indiquer comment faire ? (j'ai pas trouvé avec l'enregistreur de macro).

[Sepia]

Salut,

Hélas, c'est normal. L'enregistreur de macro ne travaille pas sur les zones de texte (comme Word aussi doit savoir que c'est vraiment pas bon ).

Les zones de texte sont des objets InlineShape accessibles via des trucs comme

Code :

ActiveDocument.InlineShapes

@+

[gegadin]

Et tu sais comment les faire apparaître en "référence relative", c'est à dire à coté d'un curseur ? Je ne connais que l'instruction pour définir leur emplacement en valeur absolue (genre 2cm à gauche et 18cm en haut).

[Sepia]

Salut,


Attention, on peut positionner une zone de texte en relatif par rapport à une page, une colonne, un paragraphe, une ligne mais pas rapport à la position du curseur.


Voici un exemple de position relative en hauteur et en largeur

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
hapeRange.RelativeHorizontalPosition = _
        wdRelativeHorizontalPositionColumn
    Selection.ShapeRange.RelativeVerticalPosition = 3
    Selection.ShapeRange.Left = -999998
    Selection.ShapeRange.Top = -999999
    Selection.ShapeRange.LockAnchor = False
    Selection.ShapeRange.WrapFormat.AllowOverlap = True
    Selection.ShapeRange.WrapFormat.Side = wdWrapBoth
    Selection.ShapeRange.WrapFormat.DistanceTop = CentimetersToPoints(0)
    Selection.ShapeRange.WrapFormat.DistanceBottom = CentimetersToPoints(0)
    Selection.ShapeRange.WrapFormat.DistanceLeft = CentimetersToPoints(0.32)
    Selection.ShapeRange.WrapFormat.DistanceRight = CentimetersToPoints(0.32)
    Selection.ShapeRange.WrapFormat.Type = 3
    Selection.ShapeRange.ZOrder ZOrderCmd:=4

@+