Discussion :

[vali25]

Bonjour à tous,

j'ai une image en en-tête dans mon document word, j'ai nommé cette image via le "volet sélection" présent dans l'onglet Accueil du Ruban.

Je n'arrive pas à accéder à cette image via le code VBA.
J'aimerai la supprimer afin d'en insérer une autre à la place. Ou mieux bien entendu pouvoir modifier l'image.

Aucun souci pour le faire dans le document, je procède comme suit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveDocument.Shapes("signature").Select

mais impossible d’accéder à l'image dans l'en-tête....
J'essaie avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Shapes("logoccf").Select

(en sachant que mon image s'appelle logoccf) vba répond que "l'élement portant ce nom est introuvable"

Quelqu'un peut il m'aider ?

Merci beaucoup

[siocnarf]

Bonjour

Après des essais, voilà ce que je te propose:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
Sub Cree()
'
' Cree un rectangle dans l'en-tete
ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Shapes.AddShape msoShapeRectangle, 50, 50, 100, 200
 
' Renomme "logoToto" le dernier de la liste
With ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary)
   Numero = .Shapes.Count
   .Shapes.Item(Numero).Name = "logoToto"
End With
 
End Sub
 
 
Sub Effacer()
'
' Effacer la forme nommée logoToto
'
'
With ActiveDocument.Sections(1)
       .Headers(wdHeaderFooterPrimary).Shapes.Item("logoToto").Delete
End With
 
End Sub

J'espère que cela convient

Siocnarf

[Heureux-oli]

Salut,

Es-tu certain que ton image se trouve dans le Primary header ?
Essaie de faire un count de tes images dans la story pour voir si tu en as au moins une ?