Filigrane non centré

Version imprimable

30/06/2020, 09h21
414818

Filigrane non centré

Bonjour

J'ai mis un filigrane (non image) qui se met correctement sur la 1ère page mais sur les suivantes il n'est plus centré...
Je ne souhaite pas mettre un filigramme image.
Je ne comprends pas pourquoi sur les pages suivantes il se décale à droite
merci de votre aide
30/06/2020, 09h39
Invité

Citation:

Envoyé par 414818

Bonjour,

Avez-vous la possibilité de mettre un exemple en ligne ? Sans garantie.
30/06/2020, 10h04
414818

Comment insérer l'exemple?
je n'y parviens pas
30/06/2020, 10h10
Invité

Citation:

Envoyé par 414818

Si votre fichier est du type .docm (donc avec des macros), il vous faut le ziper. Sinon, pour le joindre, utiliser le trombone dans le menu.
30/06/2020, 10h26
414818

1 pièce(s) jointe(s)

Voici
j'ai supprimé toutes les informations dedans car confidentielPièce jointe 574082
30/06/2020, 11h09
Invité

Citation:

Envoyé par 414818

Je n'ai pas réussi à modifier le document. En revanche, je suis reparti d'un nouveau document et je l'ai sauvegardé en modèle. Il ne correspond pas tout à fait au document d'origine. Regardez si en créant un nouveau document avec, le filigrane se met bien en place.
30/06/2020, 11h32
414818

merci beaucoup
cela a fonctionné
bien cordialement

Ce qui fonctionne chez moi:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
    ActiveDocument.Sections(1).Range.Select
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    Selection.HeaderFooter.Shapes.AddPicture(Filename:= "nom de l image.jpg" _
        , LinkToFile:=False, SaveWithDocument:=True).Select
'on nomme l image pour pouvoir l effacer ensuite !!! sinon WORD lui attribue un nom unique arbitraire
    Selection.ShapeRange.Name = "Sinature_000"
    Selection.ShapeRange.PictureFormat.Brightness = 0.2   'par defaut 0.5
    Selection.ShapeRange.PictureFormat.Contrast = 1        'par defaut 0.5
    Selection.ShapeRange.LockAspectRatio = True
'on garde la taille originale ------------------------------ cf note
'    Selection.ShapeRange.Height = CentimetersToPoints(26.21)
'    Selection.ShapeRange.Width = CentimetersToPoints(18.99)
    Selection.ShapeRange.WrapFormat.AllowOverlap = True
    Selection.ShapeRange.WrapFormat.Side = wdWrapNone
    Selection.ShapeRange.WrapFormat.Type = 3
    Selection.ShapeRange.RelativeHorizontalPosition = wdRelativeVerticalPositionMargin
    Selection.ShapeRange.RelativeVerticalPosition = wdRelativeVerticalPositionMargin
    Selection.ShapeRange.Left = wdShapeCenter   'wdShapeRight     'wdShapeCenter  == differentes options a essayer
    Selection.ShapeRange.Top = wdShapeCenter   'wdShapeBottom    'wdShapeCenter

A mon sens c'est plus facile de formater l image avec un programme de dessin, telle qu'on la souhaite pour l'insérer telle que, sans avoir a la redimensionner dans WORD.