supprimer et ajouter des formes dans Word

Question

Je veux supprimer et ajouter une forme existante dans Word (en-tête et pied de page) avec un bouton

Mais je ne peux pas choisir la forme pour modifier la propriété visible.

Comment est-ce que je peux faire ceci? Je ne peux pas comprendre le nom de la forme dans le mot

Merci pour votre aide!

Sub LogoChangeVisible() 
' 
' Removes and adds the logo from Header and Footer 
' 
' 
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader 

Selection.HeaderFooter.Shapes("Picture from Header").Select 

If Selection.ShapeRange.Visible = msoTrue Then 
Selection.ShapeRange.Visible = msoFalse 
Selection.HeaderFooter.Shapes("Picture from Footer").Select 
Selection.ShapeRange.Visible = msoFalse 

ElseIf Selection.ShapeRange.Visible = msoFalse Then 
Selection.ShapeRange.Visible = msoTrue 
Selection.HeaderFooter.Shapes("Picture from Footer").Select 
Selection.ShapeRange.Visible = msoTrue 
End If 

ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument 

End Sub 

Answer 1

Si vous ajoutez quelque chose comme ceci:

For Each s In Selection.HeaderFooter.Shapes 
    Debug.Print s.Name 
Next 

vous obtiendrez alors les noms dans votre fenêtre de débogage. Une autre approche consiste à ignorer les noms et passer par des numéros à la place:

Selection.HeaderFooter.Shapes(1)...